fazendo um programa que tira screenshot

Oque Iremos Presicisar :
1 Button
1 Edit

Adicione nas uses
Jpeg;

Adicione as Functions
procedure ScreenShot (Arquivo:string);
var
Bitmap : TBitmap;
DC : hDc;
DesktopRect : TRect;
DesktopCanvas : TCanvas;
HoraAtu : DWord;
begin
Application.MainForm.Hide;
HoraAtu := GetTickCount;
while GetTickCount-HoraAtu < 500 do
Application.ProcessMessages;
try
DC := GetDC(GetDesktopWindow);
try
DesktopCanvas := TCanvas.Create;
Bitmap := TBitmap.Create;
try
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
DesktopCanvas.Handle := DC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
Bitmap.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,D eskTopRect);
Bitmap.SaveToFile(Arquivo);
finally
Bitmap.Free;
DesktopCanvas.Free;
end;
finally
ReleaseDC(GetDesktopWindow,DC);
end;
finally
Application.MainForm.Show;
end;
end;


No Evento onclick do Button1 Adicione
Screenshot(Edit1.Text + '.jpeg');

Pronto o SS Ira Aparecer na Pasta do Seu programa
E No Edit Coloque o nome que Você quer que salve.

Créditos: Web Cheats, by: ™♥♦§Renan1609§♣♠™

Onde eu coloco as functions? Podia fazer um video , começei usando o delphi faz pouco tempo