Hat jemand eine Lösung für das Problem?
Die Screenhots werden immer Weis:
Delphi-Quellcode:
procedure ScreenShot(Bild: TBitMap; Desk: TThreadDesktop = nil);
var
c: TCanvas;
r: TRect;
begin
c := TCanvas.Create;
if(sdgfg=nil) then begin
c.Handle := GetWindowDC(GetDesktopWindow);
end
else begin
c.Handle := Desk.Handle;
end;
try
r := Rect(0, 0, Screen.Width, Screen.Height);
Bild.Width := Screen.Width;
Bild.Height := Screen.Height;
Bild.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
end;
Danke!
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]