Как получить путь к приложению по его расширению?

← →
brestmarket (2002-10-18 14:27) [0]

Как получить путь к приложению по его расширению?
Попытка залезть и узнать из HKEY_CLASSES_ROOT\.gif
ничего не дала - нет там у меня пути (возможно, потому-что установлен ACDSee 5.0)

и
почему не работает процедура показа иконки для определенного файла:

procedure ShowIcon;
var
W : Word;
begin
W := 0;
Form1.Icon.Handle := {изображение иконки вы увидите в заголовке окна}
{можно, конечно, посмотреть его и в TImage: для этого вместо "Form1.Icon.Handle" напишите "Image1.Picture.Icon.Handle"}
ExtractAssociatedIcon(HInstance,
Pchar("c:\windows\*.txt"), W);
end;

← →
Song (2002-10-18 15:10) [1]

>>Как получить путь к приложению по его расширению?
FindExecutable()

>>почему не работает процедура показа иконки для определенного файла
Потому что для ExtractAssociatedIcon() нужен определённый файл.
Если нужно по расширению, то это либо как Вы уже заметили HKEY_CLASSES_ROOT или ShGetFileInfo()

Как получить путь к приложению по его расширению? Найти похожие ветки