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

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

ScreenShot

TCrash ©   (2006-12-22 09:52:00) 

Требуется получить снимок экрана. Нашел пример как его загнать в TCanvas, а хотелось бы в BMP. Возиться с TCanvas.Pixels желания нет. Подскажите плиз куда копать.

---

TCrash   (2006-12-22 10:46:00) [1]

Спасибо. Не с той стороны начал :(

---

PZ   (2006-12-22 10:17:00) [2]

procedure CopyScreen;
var
 bmp : TBitmap;
 DC  : HDC;
begin
 bmp := TBitmap.Create;
 bmp.Height := Screen.Height;
 bmp.Width  := Screen.Width;
 DC := GetDC(0);                // Дескpиптоp экpана
 bitblt(
   bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
 bmp.SaveToFile('Screen.bmp');
 ReleaseDC(0, DC);
end;      { CopyScreen }

---

Наверх