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

Помогите с 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, спасибо. Это было то что надо.

---

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

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



Память: 0.45 MB
Время: 0.017 c