Как показать иконку, ассоциированную с данным типом файла
Приходит программист в магазин. Там продавщица - полная такая тетенька. Программист (меланхолично оглядевшись):
- Бутылку пива и пачку презервативов. Продавщица:
- Это ты девушку охмурить бутылкой пива собрался? Вино надо дорогое покупать…. Программист (отрешенно):
- Да нет. Пиво я выпью, когда она уйдет.
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;