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

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

Помогите!

Hewlping ©   (2002-02-17 19:03:00) 

Как сделать скриншот экрана.За ранее спасибо!"

---

Polygon   (2002-02-17 19:55:00) [1]

var
Snap:TBitmap
ScreenDC:hDC;


Snap:=TBitmap.Create;
Snap.Width:=Screen.Width;
Snap.Height:=Screen.Height;
ScreenDC:=GetDC(0);//:)
BitBlt(Snap.Canvas.Handle,
0,0
Sсreen.Width,
Screen.Height,
ScreenDC,
0,
0,
SRCCOPY);
ReleaseDC(0,ScreenDC);
{case Screen.PixelsPerInch of
4: Snap.PixelFormat:=pf4bit;
8: Snap.PixelFormat:=pf8bit;
16:Snap.PixelFormat:=pf16bit;
24:Snap.PixelFormat:=pf24bit;
end;}
//снимок в Snap
или можно использовать CreateCompatibleBitmap
(интересная вещь: так можно зафотать и некоторые игрушки)

---

Наверх