Breite und Höhe eines Grafiks in der Zwischenablage auslesen

[teebee]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var hbm: HBITMAP;
    bm: tagBitmap;
begin
 If Clipboard.HasFormat(CF_BITMAP) Then begin
  hbm := Clipboard.GetAsHandle(CF_BITMAP);
  GetObject(hbm,SizeOf(tagBitmap),@bm);
  Caption := IntToStr(bm.bmWidth)+' '+IntToStr(bm.bmHeight);
 end;
end;

Gruß, teebee