Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c