hi ne kleine Frage^^
wieso geht
MakeScreenShot(Image1.Picture.Bitmap);
aber das hier nicht?
Delphi-Quellcode:
Var
Varscreen:TBitmap;
begin
MakeScreenShot(Varscreen);
Image1.Picture.Bitmap:=Varscreen;
(mit dem procedure)
Delphi-Quellcode:
procedure MakeScreenShot(const ATarget: TBitmap);
var
DesktopDC: HDC;
begin
DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
try
ATarget.PixelFormat := pfDevice;
ATarget.Width := Screen.Width;
ATarget.Height := Screen.Height;
BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
finally
DeleteDC(DesktopDC);
end;
end;
das versteh ich nciht das ist doch das Gleiche??
ich möchte den screenshot in eine Variable speichern, wie soll das denn anders gehen, wenn nicht da wie oben?