Как показать иконку, ассоциированную с данным типом файла?
Материал из 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