Релиб / Программирование / Delphi / Как сделать принтскрин из программы?? / Latest Posts

RE: Как сделать принтскрин из программы??

Bear — Mon, 13 Aug 2001 00:16:00 GMT

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop : TCanvas ;
R : TRect;
begin
DeskTop := TCanvas.Create;
R := Screen.DesktopRect;
try
with DeskTop do
Handle := GetWindowDC (GetDesktopWindow) ;
Image1.Canvas.CopyRect(R,DeskTop,R);
finally
DeskTop.Free
end
end;

RE: Как сделать принтскрин из программы??

Gumbo — Sat, 11 Aug 2001 13:38:00 GMT

Узнаешь, напиши мне.
Gumbo

Как сделать принтскрин из программы??

Cyrus — Mon, 16 Jul 2001 00:41:00 GMT

Как сделать принтскрин из программы?? Чтобы потом его можно было из буфера вставить в Image? Может кто знает? Заранее благодарен!