Показ иконки зарегистрированного расширения

Прислал Aleksey msalex@tomcat.ru:

{процедура показывает иконку в заголовке окна, используемую для, интерисующего вас, зарегистрированного расширения файла}
{Не забудьте - ShellAPI поместить в uses}

procedure ShowIcon;
var
W : Word; begin
W := 0; Form1.Icon.Handle := {изображение иконки вы увидите в заголовке окна} {можно, конечно, посмотреть его и в TImage: для этого вместо "Form1.Icon.Handle" напишите "Image1.Picture.Icon.Handle"} ExtractAssociatedIcon(HInstance, Pchar('c:\windows\*.txt'{узнаем, например, какая иконка используется для текстового файла. вы можете указать конкретный файл с любым расширением}), W); end;

[000114]

Содержание раздела