Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как показать иконку, ассоциированной с данным типом файла?

Как показать иконку, ассоциированной с данным типом файла?

ShellApi функция ExtractAssociatedIcon()
Пример:

    uses ShellApi;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       Icon : hIcon;
       IconIndex : word;

     begin
       IconIndex := 1;
       Icon := ExtractAssociatedIcon(HInstance,
                    Application.ExeName,
                    IconIndex);
      DrawIcon(Canvas.Handle, 10, 10, Icon);
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru