Текущий архив: 2006.02.19;
Скачать: CL | DM;
Вниз
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");
Страницы: 1 вся ветка
Текущий архив: 2006.02.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
