Главная страница
    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
3-100529
Buka
2003-07-01 19:23
2003.07.31
Можно ли принципиально увидеть русский текст?


14-100884
mikhasenko.anton
2003-07-16 08:25
2003.07.31
Где найти компонент DBF?


7-100992
Lexa2504
2003-05-20 15:47
2003.07.31
Убрать фон надписи значка


14-100911
Spa81
2003-07-14 18:18
2003.07.31
TurboPower Async Professional


7-101005
SDW_syscoder
2003-05-12 01:33
2003.07.31
Прерывания в Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский