print screen

← →
kizam (2006-01-31 02:31) [0]

написал такой код

procedure TForm1.Timer1Timer(Sender: TObject); var DCDesk: HDC; // hDC of Desktop bmp: TBitmap; begin bmp := TBitmap.Create; bmp.Height := Screen.Height; bmp.Width := Screen.Width; DCDesk := GetWindowDC(GetDesktopWindow); BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DCDesk, 0, 0, SRCCOPY); bmp.SaveToFile("c:\ScreenShot.bmp"); ReleaseDC(GetDesktopWindow, DCDesk); bmp.Free; end;

но есть одна проблема. мне нужно чтоб прога зделала каждую 30 минут принт скрин и сохраняла эти снимки на отдельных файлах. но у меня получается толька первая, другие не сохраняются в отдельных файлах.
как это можно зделать?

← →
Джо © (2006-01-31 02:33) [1]

Ну, так ты же и пишешь в один и тот же файл.

← →
Джо © (2006-01-31 02:35) [2]

> как это можно зделать?

Например, так.
Заводишь в секции private некий счетчик, в OnTimer формируешь имя файла на основе этого счетчика, делаешь запись в файл, а затем увеличиваешь значение счетчика.

← →
kizam (2006-01-31 02:47) [3]

спасибо, получилось.

bmp.SaveToFile("c:\"+inttostr(intX)+".jpeg");

print screen Найти похожие ветки