| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с ExtractAssociatedIcon(.......) [D7, WinXP]
KpeHgeJIb © (2003-06-03 19:44:00)Не получается, отобразить иконку связаною с екзешником.
Вот код:
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;
Обьясните плиз, что я делаю не так? А то я уже замучался.
KpeHgeJIb (2003-06-04 02:54:00) [1]Morfein, спасибо. Это было то что надо.
Morfein (2003-06-04 02:17:00) [2]
begin
IconIndex :=0;
...
Индексация всегда и везде ведётся с нуля...
KpeHgeJIb (2003-06-04 01:42:00) [3]clickmaker спасибо. Прикольно получилось, но мне надо немного другое. Надо чтоб показывалась икнока самого екзешника (тоесть значек IE), а так показывается иконка откраемого приложением файла тоесть лиск со значком IE. Тоже самое происходит с WinAmp и Word. Приложения с которыми не асоциировано никаких файлов показывают свою собственную иконку.
Как написать нужную мне вещь?
clickmaker (2003-06-03 20:10:00) [4]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;
| |
