|
|
|
новичок
участник
Last Login: 04.11.2003 13:57
Сообщ.: 4,
Visits: 45
|
|
| Как сделать принтскрин из программы?? Чтобы потом его можно было из буфера вставить в Image? Может кто знает? Заранее благодарен!
|
|
|
|
|
Junior Member
участник
Last Login: 15.10.2001 17:41
Сообщ.: 14,
Visits: 155
|
|
Узнаешь, напиши мне.
Gumbo
|
|
|
|
|
Supreme Being
участник
Last Login: 09.02.2004 21:47
Сообщ.: 119,
Visits: 1 310
|
|
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;
|
|
|
|