Иконка ассоциированная с файлом

← →
Blacki © (2002-11-01 22:57) [0]

Как получить иконку, ассоциированная с файлом. Например иконку у файла dpr, or txt or htm???
ExtractAssociatedIcon пашет только для исполняемых файлов. Хотелось бы API функцию а не выдёргивание инфы из реестра!

← →
rhf © (2002-11-02 01:01) [1]

ExtractAssociatedIcon
..........
The function extracts the icon handle from that file, or from an executable file associated with that file.
..........

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

ЗЫ но можно и через реестр

← →
Blacki © (2002-11-02 10:59) [2]

ну вот тогда пример:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon : hIcon;
IconIndex : word;
begin
IconIndex := 0;
Icon := ExtractAssociatedIcon(HInstance, "D:\1.htm" , IconIndex);
DrawIcon(Canvas.Handle, 10, 10, Icon);
end;
Не работает почему то!!!

← →
Blacki © (2002-11-03 10:58) [3]

ну подскажите хоть что-нибудь!!!

← →
Poirot © (2002-11-03 11:19) [4]

http://delphibase.endimus.com/?action=viewtopic&topic=filelink

ShGetFileInfo()

>>> http://delphibase.endimus.com/?action=viewtopic&topic=filelink
>GetRegistryIconHandle
она работает не для всех файлов (например не пашет для *.htm)
>>GetIcon
она работает не для всех файлов (например не пашет для *.htm) + узнают иконку для созданного файла а необходимо чтобы просто по расширению узнавала иконку
>>ShGetFileInfo
как раз узнаёт инфу о уже созданном файле

Иконка ассоциированная с файлом Найти похожие ветки