В этом уроке http://www.codeproject.com/KB/IP/ThinVnc.aspx написано:
ThinVNC не является традиционным VNC, так как
он не реализует AT & T RFB
протокол. Вместо этого он построен на вершине
современных веб-стандартов: AJAX, JSON
и HTML5.
Но, глядя на код, мне кажется, что Delphi мне кажется, поэтому кто-то может объяснить, что на самом деле означает приведенное выше предложение: действительно ли HTML 5 способен вызывать ОС?
TWin = class(TObject)
private
Wnd : Hwnd;
Rect : TRect;
Pid : Cardinal;
public
constructor Create(AWnd:HWND;ARect:TRect;APid:Cardinal);
end;
function EnumWindowsProc(Wnd: HWnd; const obj:TList<TWin>): Bool; export; stdcall;
var ProcessId : Cardinal;
R,R1 : TRect;
Win : TWin;
begin
Result:=True;
GetWindowThreadProcessId(Wnd,ProcessId);
if IsWindowVisible(Wnd) and not IsIconic(wnd)then begin
GetWindowRect(Wnd,R);
IntersectRect(R1,R,Screen.DesktopRect);
if not IsRectEmpty(R1) then begin
win := TWin.Create(Wnd,R,ProcessId);
obj.Add(win);
end;
end;
end;
procedure GetProcessWindowList(WinList:TList<TWin>);
begin
WinList.Clear;
EnumWindows(@EnumWindowsProc, Longint(WinList));
end;