Zitat von
Bernhard Geyer:
Ok, dann ist es aber primär dessen Aufgabe dir eine Lösung anzubieten (wir können dann hier nur die Glaskugel auspacken). Oder versagt dieser an Windows 7?
Ja das hilft mir jetzt leider auch nicht weiter...
Das übliche Verfahren hat ja sicherlich jeder schon mal programmiert...
Und für Win 7 muss da ein "Trick" fehlen...
Delphi-Quellcode:
begin
....
DeskWnd := GetDesktopWindow;
DeskDC := GetWindowDC(DeskWnd);
DeskCv := TCanvas.Create;
DeskCv.Handle := DeskDC;
try
BitBlt(AktBMP.Canvas.Handle,
0,0,ScreenWidth,ScreenHeight,
DeskDC,0,0,SrcCopy);
finally
DeskCv.Free;
ReleaseDC(DeskWnd, DeskDC);
end;
Mavarik