Search results for 'Screen Shot'. 1 post(s) found.
- 2007/09/11 How to capture Windows Desktop to Bitmap
Here's a piece of Delphi code capable of capturing the Windows Desktop image into a TBitmap object:
procedure ScreenShot(DestBitmap : TBitmap) ;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle,
0,
0,
DestBitmap.Width,
DestBitmap.Height,
DC,
0,
0,
SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle,
0,
0,
DestBitmap.Width,
DestBitmap.Height,
DC,
0,
0,
SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;
Another posts included in "Delphi"
| How to Convert Pixels to Millimeters (0) | 2007/09/11 |
| How to convert an ICO to a BMP (0) | 2007/09/11 |
| How to draw rotated text (0) | 2007/09/11 |
| Cut a rectangle from an Image to Clipboard (0) | 2007/09/11 |
| Convert TColor to Hex & Hex to TColor (0) | 2007/09/11 |
| Convert a BMP to a JPG (0) | 2007/09/11 |
| Reading a directory content (0) | 2007/09/10 |
| Path shortener: c:\AB\C...DE\F.ghi (0) | 2007/09/10 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/25 08:59
moneyideas
-
Subject different money making ideas
2010/01/28 22:17
moneyideas
-
Subject different money making ideas
2010/01/29 06:38
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed