Bild-Inhalt der Zwischenablage abspeichern?

[Pascal95]

Moin,

jetzt hab ichs!!
Juhu.

Ich habe noch mal in meinen Archiven nachgeguckt und eben nur noch den ReleaseDc(ScreenDC); zu ReleaseDc(0, ScreenDC); geändert.
Mit folgendem Code funktioniert es wirklich super unter lazarus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ScreenDC:HDC;
begin
ScreenDC:= GetDC(0);
image1.picture.bitmap.LoadFromDevice(ScreenDC);
ReleaseDc(0, ScreenDC);
Image1.Picture.SaveToFile('C:\temp\screen.bmp');
end;

Vielen Dank. Hast mir sehr geholfen!

Pascal95


(erledigt)