Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

Нужно напистать....   Найти похожие ветки 

← →
TALLA   (2002-02-10 22:36) [5]

procedure TForm1.OnTimer1(Sender:TObject); {допустим 3 раза в секунду}
var
bmp:TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then
begin
... {конвертишь если надо в JPEG и посылаешь по сетке}
end else
ShowMessage ("Failed get image!");
finally
bmp.Free;
end;
end;

И бери курсор GetCursorPos(p:TPoint) и тоже посылай.
Если чего неясно,пиши.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c