Delphi Clipboard[4] Formats、FormatCount -格式化列表

{该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明}

Delphi Clipboard[4] Formats、FormatCount -格式化列表

原型：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

property FormatCount: Integer read GetFormatCount; property Formats[Index: Integer]: Word read GetFormats;   function TClipboard.GetFormatCount: Integer; begin   Result := CountClipboardFormats; end;   function TClipboard.GetFormats(Index: Integer): Word; begin   Open;   try     Result := EnumClipboardFormats(0);     while Index > 0 do     begin       Dec(Index);       Result := EnumClipboardFormats(Result);     end;   finally     Close;   end; end;

示例：

?

1 2 3 4 5 6 7 8 9 10

var   i:Integer; begin   Memo1.Clear;   with Clipboard do begin     for i:=0 to FormatCount-1 do begin       Memo1.Lines.Add(ClipboardFormatStr(Clipboard.Formats[i]));     end;   end; end;

文本格式列表输出：

Bitmap图格式列表输出：

 

 

 

 

 

创建时间：2022.04.14　　更新时间：