Breite und Höhe eines Grafiks in der Zwischenablage auslesen

[thomas2009]

Ich möchte aber die masse direkt auslesen ohne die Grafik von der Zwischenablage kopieren zu müssen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then begin
bmp:= TBitmap.Create;
bmp.Assign(Clipboard);
Edit1.Text:=IntToStr(bmp.Width);
Edit2.Text:=IntToStr(bmp.Height);
bmp.Free;
end;
end;