Вниз
Скачать: CL | DM;

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

 
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


 
Song ©   (2002-11-03 11:59) [5]

ShGetFileInfo()


 
Blacki ©   (2002-11-03 13:48) [6]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
7-46168
Ш-К
2002-09-13 14:51
2002.11.14
Кто-нибудь работал с ПУ по протоколу ЕРР?


14-46137
Beginner-Designer
2002-10-28 11:40
2002.11.14
как устанавливать программы в Linux?


8-45998
BOA_KAA
2002-07-25 16:26
2002.11.14
Выделение части рисунка в TImage


1-45987
Comp
2002-11-04 15:55
2002.11.14
Help me, please...


1-45876
Azazello
2002-11-05 16:32
2002.11.14
Про Outlook Express




   Наверх