Показываем иконку, ассоциированной с данным типом файла в Delphi

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;

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий