Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

Помогите! 


Hewlping   (2002-02-17 19:03) [0]

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



Polygon   (2002-02-17 19:55) [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
(интересная вещь: так можно зафотать и некоторые игрушки)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.031 c
3-9068            Questioner            2002-02-06 15:23  2002.03.04  
Люди уверен, что все каким-либо образом решали для себя эту задачу.


6-9258            Lamok                 2001-12-15 14:34  2002.03.04  
TCP/IP


14-9278           Сергей Чурсин         2001-08-07 19:14  2002.03.04  
---|Ветка была без названия|---


3-9057            vopros                2002-02-06 14:00  2002.03.04  
Я уже всех достал наверное...но очень надо


7-9318            DenKop                2001-11-26 21:20  2002.03.04  
Рабочий стол.