Программа копирования экрана

[arsik]

Приветствую всех форумчан.Подскажите начинающему программисту:идея заключается в автоматическом сохранении через определенное время всего того,что расположено на экране компа.Сохранения происходят в виде изображений в определенную папку.Прога нужна с целью отследить переписку жены)))Заранее благодарен

[Slippy]

Сохранение скриншота экрана на Delphi:

procedure SnapShot;

var

desk:hDC;
bmp_Screen:Graphics.TBitmap;

begin

bmp_Screen:=Graphics.TBitmap.Create;
bmp_Screen.Width:=GetSystemMetrics(SM_CXSCREEN);
bmp_Screen.Height:=GetSystemMetrics(SM_CYSCREEN);
desk:=GetDC(GetDesktopWindow);
BitBlt(bmp_Screen.Canvas.Handle,0,0,
bmp_Screen.Width,bmp_Screen.Height,desk,0,0,SRCCOPY);
bmp_Screen.SaveToFile('C:\image.bmp);
bmp_Screen.free;

end;

Вам по сути нужно просто вставить этот кусок кода в таймер.
Только для имени файла вместо image.bmp создайте какой-нибудь счетчик.

[arsik]

Большое спасибо за помощь.Только не совсем понял как в имени файла вместо image.bmp создайть какой-нибудь счетчик? У меня эта строка имеет следующий вид:

bmp_Screen.SaveToFile('E:\Моя\Fusio n\1.bmp');

При этом происход единичное сохранение изображения

[Ezhuk]

Я как-то использовал такой код:

char out_name[7]="00.txt"
....
out_name[0]+=N/10;
out_name[1]+=N%10;
...

Это С, но идея понятная.

[whatever]

Переменную i:integer; объявить глобально и обнулить при запуске. В код вписать следующее:

bmp_Screen.SaveToFile('E:\Моя\Fusio n\'+IntToStr(i)+'.bmp');
inc(i);

[arsik]

Всем большое спасибо!Все получилось.