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

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

Как сделать программно скриншот всего экрана [D6]

star ©   (2002-07-08 12:46:00) 

Чтобы со свеми окошками, открытыми менюшками и т.п. ?

---

star   (2002-07-08 12:55:00) [1]

Спасибо, попробую ...

---

ricks   (2002-07-08 12:52:00) [2]

попробуй вот так:

var DC:HDC;
BM:TBitmap;
begin
BM:=TBitmap.Create;
DC:=GetDC(0);
BM.Handle:=CreateCompatibilBitmap(DC, ширина экрана, высота);
BitBlt(BM.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
Bm.SaveToFile;
....
BM.Free;
end;


---

Наверх