Форум АНТИЧАТ - скриншот рабочего стола, с обновлением

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

скриншот рабочего стола, с обновлением

14.01.2010, 21:50

Leon2009

Новичок

Регистрация: 01.09.2009

Сообщений: 29

Провел на форуме:
20650

Репутация: 0

скриншот рабочего стола, с обновлением

Здравствуйте можете помочь? делаю скрин рабочего стола.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
Jpg: TJpegImage;
Begin
Try
bmp:= TBitmap.Create;
Jpg:= TJpegImage.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
Jpg.Assign(Bmp);
Jpg.SaveToFile('test.jpg');
image1.Picture.Assign(Jpg);
ReleaseDC(0, DC);
finally
Bmp.Free;
jpg.Free;
form1.Image1.Picture:=nil;  не знаю куда ее поставить????
End;
end;

все работает но только есть глюк: первый снимак делает хорошо, а остальные начинают уменьшатся. если ставлю nil то вообще ничго не появляется. как делать обновление???? Спасибо!