Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 164
  • Last Modified:

Get Screen as Bmp/gif/...

I want to store the screen in a picture. How can I do this?
0
Shellman
Asked:
Shellman
1 Solution
 
rene100Commented:
Hi shellman

You can use this code:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Handle: integer;
begin
Handle:=GetDesktopWindow;
Handle:=GetWindowDC(Handle);
BitBlt(image1.canvas.handle,0,0,form1.width,form1.height,Handle,0,0,SRCCOPY);
image1.picture.SaveToFile('c:\testfile.bmp');
end;

reagards

rene
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now