Capturar A Tela

[Guest fabinho]

Moçada agora preciso capturar a tela do windows e salvar ela num jpg.. se ler o tópico abaixo vai saber por que... que puder ajudar agradeço.

[azizvc]

no meu site tem o componente TZoom que captura a tela

http://delphi.zgames.com.br

[Guest XinXanXun]

procedure TForm1.Button1Click(Sender: TObject);

var ScreenDC:HDC; Bmp:TBitmap; Jpg:TJPEGImage;

begin

Bmp := TBitmap.Create;

Jpg := TJPEGImage.Create;

try

Bmp.Width := Screen.Width;

Bmp.Height := Screen.Height;

ScreenDC := GetDC(0);

try

BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, ScreenDC, 0, 0, SRCCOPY);

Jpg.Assign(Bmp);

Bmp.SaveToFile('c:\temp\Tela_do_Windows.bmp');

Jpg.SaveToFile('c:\temp\Tela_do_Windows.jpg');

finally

ReleaseDC(0, ScreenDC);

end;

finally

Bmp.Free;

Jpg.Free;

end;

end;