Встроенные форматы буфера обмена

Где бы мне раздобыть список встроенных в win95 форматов буфера обмена и соответствующие им номера?

Вы можете получить эту информацию с помощью следующей процедуры:

procedure TForm1.BtnShowFormatsClick(Sender: TObject);

Var

buf: Array [0..60] of Char;

n : Integer;

fmt: Word;

name: String[30];

begin

MemFormats.Clear;

for n := 0 to Clipboard.FormatCount-1 do begin

fmt := Clipboard.Formats[n];

If GetclipboardFormatName( fmt, buf, Pred(Sizeof(buf))) <> 0 Then

MemFormats.Lines.Add( StrPas( buf ))

Else Begin

Case fmt of

1: name := 'CF_TEXT';

2: name := 'CF_BITMAP';

3: name := 'CF_METAFILEPICT';

4: name := 'CF_SYLK';

5: name := 'CF_DIF';

6: name := 'CF_TIFF';

7: name := 'CF_OEMTEXT';

8: name := 'CF_DIB';

9: name := 'CF_PALETTE';

10: name := 'CF_PENDATA';

11: name := 'CF_RIFF';

12: name := 'CF_WAVE';

13: name := 'CF_UNICODETEXT';

14: name := 'CF_ENHMETAFILE';

15: name := 'CF_HDROP (Win 95)';

16: name := 'CF_LOCALE (Win 95)';

17: name := 'CF_MAX (Win 95)';

$0080: name := 'CF_OWNERDISPLAY';

$0081: name := 'CF_DSPTEXT';

$0082: name := 'CF_DSPBITMAP';

$0083: name := 'CF_DSPMETAFILEPICT';

$008E: name := 'CF_DSPENHMETAFILE';

$0200..$02FF: name := 'частный формат';

$0300..$03FF: name := 'Объект GDI';

Else

name := 'неизвестный формат';

End;

MemFormats.Lines.Add( name );

end;

- Peter Below [000966]