Bittiefe des Bildes in der Zwischenablage ermitteln?

[PeterPanino]

Hallo himitsu, ich habe inzwischen die Lösung gefunden:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  DIB: PBitmapInfoHeader;
begin
  if Clipboard.HasFormat(CF_DIB) then
  begin
    DIB := Pointer(Clipboard.GetAsHandle(CF_DIB));
    if (DIB <> nil) then
      Form1.Caption := IntToStr(DIB^.biBitCount);
  end;
end;