Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

Как загрузить иконку из ресурса 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-100794
дим
2003-07-17 10:23
2003.07.31
Процесс


1-100719
Calm
2003-07-18 17:12
2003.07.31
Может ли сервис поставить Hook?


3-100637
ord3f8h
2003-07-07 19:18
2003.07.31
Как работать с DBGrid


14-100909
Step[B.M.]
2003-07-10 09:14
2003.07.31
Как отучить XL Report g2 выводить лимит в 255 записей ?


1-100742
alfim
2003-07-16 08:28
2003.07.31
Excel.Application.8, его свойства и методы...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский