Bild-Inhalt der Zwischenablage abspeichern?

[Pascal95]

Hallo,

ich weiß, dass es dazu schon einige Beiträge im Forum gibt, doch bei funktioniert es nicht!
Wie der Titel sagt, möchte ich den Inhalt der Zwischenablage (Bitmap) abspeichern.

(SwissDelphiCenter.ch habe ich nicht verstanden)

Momentan habe ich die Funktion einen Screenshot zu machen so gelöst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_SNAPSHOT , 0, 0, 0);
  keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);
end;

Soweit klappt das auch. Ich kann das Bild in Paint einfügen. Nun möchte ich es aber automatisch speichern lassen.

if Clipboard.HasFormat(CF_BITMAP) then begin
Image1.Picture.Assign(Clipboard);
Image1.Picture.SaveToFile('C:\temp\screenshot.bmp' );
end;

klappt nicht: Fehlermeldung

Ich habe es auch mit

Delphi-Quellcode:

  Image1.Picture.Bitmap.Assign(Clipboard);
  Image1.Picture.Bitmap.SaveToFile('C:\temp\screenshot.bmp');

probiert.

Klappt alles nicht!

Würde mich freuen, wenn mir jemand helfen könnte. Ich finde hier im Forum und anderswo immer nur die obengenannte Funktion, die bei mir nicht klappt.

Ich benutze FreePascal Lazarus v0.9.28.2 Beta


Vielen Dank
Pascal95