| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

print screen

kizam ©   (2006-01-31 02:31:00) 

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

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 минут принт скрин и сохраняла эти снимки на отдельных файлах. но у меня получается толька первая, другие не сохраняются в отдельных файлах.
как это можно зделать?

---

kizam   (2006-01-31 02:47:00) [1]

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

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

---

Джо   (2006-01-31 02:35:00) [2]

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

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

---

Джо   (2006-01-31 02:33:00) [3]

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

---

Наверх