Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.31;
Скачать: CL | DM;

Вниз

Как загрузить иконку из ресурса exe файла, зная её ID?   Найти похожие ветки 

 
Interested   (2003-07-16 17:36) [0]

Есть EXE файл с ресурсами иконками.
Как загружать эти иконки на компонент Image, зная ResourceID каждой из них?

Желательно с примером.
Спасибо.


 
Юрий Федоров ©   (2003-07-16 17:51) [1]

var Icon: TIcon;
Icon:=TIcon.Create;
try

Icon.handle:=LoadIcon(hInstance, "идентификатор_в_ресурсе");
...
finally
Icon.Free;
end;


 
Иван Шихалев ©   (2003-07-16 18:59) [2]

Я так понимаю, речь идет о иконках в чужом exe? LoadIcon не поможет. Поможет FindResource -> LoadResource -> ... -> LoadImage.

Там где многоточие - поиск соответствующей части иконки. Как конкретно делается - сейчас не вспомню, но в справке по WinAPI все, естественно, есть.


 
Interested   (2003-07-16 23:18) [3]

Следующий код иконку с ID 101 в Image1 не загружает:

var Icon1: TIcon;
begin
Icon1:=TIcon.Create;
try
Icon1.handle:=LoadIcon(hInstance,"101");
Image1.Picture.Icon.Assign(Icon1);
finally
Icon1.Free;
end;
end;

Как быть?



 
Eliminator   (2003-07-16 23:20) [4]


> Я так понимаю, речь идет о иконках в чужом exe? LoadIcon
> не поможет. Поможет FindResource -> LoadResource -> ...
> -> LoadImage.

Речь идёт о родном exe программы.


 
Interested   (2003-07-16 23:21) [5]

Да, exe самой программы...


 
Chlavik ©   (2003-07-17 02:49) [6]

Может TRresourceStream заюзать?


 
Иван Шихалев ©   (2003-07-17 07:05) [7]

var Icon1: TIcon;
begin
Icon1:=TIcon.Create;
try
Icon1.handle:=LoadIcon(hInstance, PChar(101));
Image1.Picture.Icon.Assign(Icon1);
finally
Icon1.Free;
end;
end;



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

Текущий архив: 2003.07.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
3-100569
ruslan_as
2003-07-08 10:41
2003.07.31
Как убрать лишние пробелы в поле InteBase


1-100668
race1
2003-07-18 07:37
2003.07.31
var array


1-100664
Immortal_Death
2003-07-17 16:56
2003.07.31
TreeView и Drag&Drop :)


1-100729
andrey__
2003-07-02 17:26
2003.07.31
Форма в TService


3-100535
DmitryNekl
2003-07-10 21:12
2003.07.31
Опять Excel и ADO.