Solved

Get Screen as Bmp/gif/...

Posted on 1998-11-28
1
158 Views
Last Modified: 2010-04-04
I want to store the screen in a picture. How can I do this?
0
Comment
Question by:Shellman
1 Comment
 
LVL 2

Accepted Solution

by:
rene100 earned 20 total points
ID: 1348403
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

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Delphi TcxGrid group footer summary 3 323
Simple Delphi Question 9 96
Delphi application Soap connection 5 123
FMX and jaudiotracker playing memory stream 29 87
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question