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

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

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

原型：

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;

示例：

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　　更新时间：