Anyplace Control

[GAGARIN-NEW]

Всем доброго дня )

http://www.anyplace-control.com/demo...-desktop.shtml

1) Интересно , как реализовано движение мыши ?
Задание координат курсора - элементарно , клики итд - понятно, Именно интересует движение мыши .(думаю также системные сообщения)
Например если зайти в полноэкранное приложение , можно ли будет полноценно управлять им( игрой к примеру) с помощью setcursorpos.
2) Также зщаинтересовала достаточно большая скорость обновления картинки между сервером и клиентом , как можно ускорить ( в моём случае передачу кучу скринов с сервера к кдиенту) обновление картинки ?
3) Как реализовать (как можно компактней) посылку нажатий клавиш на удалённый компьютер ?

[_SERGEYX_]

Это же Флеш-файл.

[GAGARIN-NEW]

Флеш файл на сколько я понимаю был снят с реальной программы.

[GAGARIN-NEW]

function GetScreenshotBitmap: TBitmap;
var
DC: HDC;
R: TRect;
Window: HWND;
begin
Result := TBitmap.Create;
with Result do
try
PixelFormat := pf24bit;
Transparent := False;
Window := GetDesktopWindow;
DC := GetWindowDC(Window);
try
GetWindowRect(Window, R);
Width := R.Right - R.Left;
Height := R.Bottom - R.Top;
BitBlt(Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
finally
ReleaseDC(Window, DC);
end;
except
Free;
raise;
end;
end;

function GetScreenshotJpeg: TJpegImage;
var
TempBmp: TBitmap;
begin
TempBmp := GetScreenshotBitmap;
try
Result := TJPEGImage.Create;
with Result do
try
Grayscale := False;
CompressionQuality := 100;
Performance := jpBestQuality;
ProgressiveDisplay := False;
PixelFormat := jf24Bit;
Assign(TempBmp);
except
Free;
raise;
end;
finally
FreeAndNil(TempBmp);
end;
end;

Чтобы уменьшить чтобы размер был поменьше? и картинка стала красивей?)))))
а вот так передаю ..

Сервер :

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  GetScreenshotJpeg.SaveToStream(MyStream);
  NMStrm1.PostIt(MyStream);
  MyStream.Free;
end;

Клиент:

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
var
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  MyStream.CopyFrom(strm, NMStrmServ1.BytesTotal);
  MyStream.SaveToFile('1.jpg');
  image.Picture.LoadFromFile('1.jpg');
end;

какбы мне эт этого мусора избавится?))

MyStream.SaveToFile('1.jpg');
image.Picture.LoadFromFile('1.jpg') ;

а то в поток я запихнул а вынуть чтото не получается))