Hallo zusammen
Ich verwende diesen einfachen Procedure:
Delphi-Quellcode:
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := dx;
DestBitmap.Height := dy;
BitBlt(DestBitmap.Canvas.Handle, 0, 0, DestBitmap.Width, DestBitmap.Height,
DC, X , Y, SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow,
DC) ;
end;
end;
Wo muss ich ändern, damit alles kopiert wird?