Delphi - база знаний

       

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


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



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;


Взято с сайта



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








Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий