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

Материал из DRKB

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

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;



Source: Взято с сайта http://blackman.wp-club.net/
ID: 01740