Помогите с ExtractAssociatedIcon(.......)

← →
KpeHgeJIb (2003-06-03 19:44) [0]

Не получается, отобразить иконку связаною с екзешником.
Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon : hIcon;
IconIndex : word;
begin
IconIndex :=1;
Icon := ExtractAssociatedIcon(HInstance,"C:\Program Files\Internet Explorer\iexplore.exe",IconIndex);
image1.Picture.Icon.Handle:=icon;
end;

Обьясните плиз, что я делаю не так? А то я уже замучался.

← →
clickmaker © (2003-06-03 20:10) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Icon : hIcon;
IconIndex : word;
AIcon: TIcon;
Path: array[0..MAX_PATH] of char;
begin
IconIndex :=1;
lstrcpy(Path, "E:\Program Files\Internet Explorer\iexplore.exe");
Icon := ExtractAssociatedIcon(HInstance, Path, IconIndex);
AIcon := TIcon.Create;
AIcon.Handle := Icon;
image1.Picture.Assign(AIcon);
AIcon.Free;
end;

← →
KpeHgeJIb (2003-06-04 01:42) [2]

clickmaker спасибо. Прикольно получилось, но мне надо немного другое. Надо чтоб показывалась икнока самого екзешника (тоесть значек IE), а так показывается иконка откраемого приложением файла тоесть лиск со значком IE. Тоже самое происходит с WinAmp и Word. Приложения с которыми не асоциировано никаких файлов показывают свою собственную иконку.

Как написать нужную мне вещь?

← →
Morfein © (2003-06-04 02:17) [3]

begin IconIndex :=0; ...

Индексация всегда и везде ведётся с нуля...

← →
KpeHgeJIb (2003-06-04 02:54) [4]

Morfein, спасибо. Это было то что надо.

Помогите с ExtractAssociatedIcon(.......) Найти похожие ветки