Загрузка иконки из ресурса приложения.
Здравствуйте. Мне необходимо загрузить из ресурсов приложения иконку и отобразить ее в главной форме. Сам ресурс в виде иконки содержится в файле ресурсов и подгружается с помощью директивы {$RESOURCE MyRes}. Вот код:
procedure TMainForm.Button1Click(Sender: TObject);
begin
Icon := LoadIcon(Application.Handle, 'My');
end;
Но иконка при этом на заголовке главной формы не отображается.
Что тут может быть?
procedure TMainForm.Button1Click(Sender: TObject);
begin
Icon := LoadIcon(Application.Handle, 'My');
end;
Но иконка при этом на заголовке главной формы не отображается.
Что тут может быть?
Да, я пробовал и такой код, и такой:
SendMessage(Handle, WM_SETICON, 1, LoadIcon(Application.Handle, 'My'));
Получается установить только стандартную иконку, когда вместо Application.Handle устанавливать NULL и в имени писать стандартный идентификатор иконки. Не удается установить только свою иконку.
Хотя ведь по логике все делаю правильно. Что это может быть?
SendMessage(Handle, WM_SETICON, 1, LoadIcon(Application.Handle, 'My'));
Получается установить только стандартную иконку, когда вместо Application.Handle устанавливать NULL и в имени писать стандартный идентификатор иконки. Не удается установить только свою иконку.
Хотя ведь по логике все делаю правильно. Что это может быть?
Уверен, что твою иконку зовут 'My' ? Я бы тебе посоветовал поковырять экзешник например ResHacker'ом, найти в нем числовой идентификатор иконки и грузить так:
Код:
Icon := LoadIcon(Application.Handle, PChar(101));
// ну это типа если идент. иконки 101
// ну это типа если идент. иконки 101
Да, я попробовал с посмотрел спомощью ResHacker свою программу. Увидел там все иконки, которые присоединял в проект, но с номерами, которые присваивает им видно сам ResHacker, поскольку я номеров никаких не давал. Хотя попробовал и эти номера. Пробовал применять ResHacker, применял и функцию MAKEINTRESOURCE, пробовал применять преобразования типов (PChar), все-равно не работает. А в том, что имя моей иконки 'My', я абсолютно уверен. А вы пробовали загрузить иконку в Delphi или в Builder'е?
нет, номера эти присваивает не resHacker, а дельфячий линкер.
Иконку я в дельфях загружал, но было это дело давно, я уж давно на Це++ перешел.
Только вчера я мутил что-то с иконкой, и дело было именно так:
Незнаю даже. Может у вас hInstance паленый? Должно быть $400000.
Иконку я в дельфях загружал, но было это дело давно, я уж давно на Це++ перешел.
Только вчера я мутил что-то с иконкой, и дело было именно так:
Код:
wndclass.hIcon = LoadIcon(hInstance, (char*)101);
Незнаю даже. Может у вас hInstance паленый? Должно быть $400000.
например, файл ресурсов:
а потом код:
или
вся проблема в том, что надо использовать hInstance, а не Application.Handle.
Код:
myicon ICON "C:\Program Files\Borland\Delphi7\Projects\AppIcon\icon.ico"
а потом код:
Код:
Form1.Icon.Handle:=LoadIcon(hInstance,pchar('myicon'));
или
Код:
SendMessage(form1.Handle,WM_SETICON,1,LoadIcon(hInstance,pchar('myicon')));
вся проблема в том, что надо использовать hInstance, а не Application.Handle.
Да, все при установки вместо Application.Handle на hInstance, все заработало. Я тогда, не совсем понимаю работу функции LoadIcon: параметр hInstance я понимал дескриптор ресурса-приложения.
Объясните, пожалуйста, как это работает?
Объясните, пожалуйста, как это работает?
Внимательнее посмотрев Help, я узнал, что Application.Handle- это не дескриптор приложения, а десриптор главного окна приложения. На мой взгляд логичнее если борландцы сделали бы Application.Handle-дескриптор приложения, а Application.MainForm.Handle-дескриптор главного окна приложения. ВСЕМ БОЛЬШОЕ СПАСИБО ЗА ПОМОЩЬ!
переменные Handle имеют тип HWND, а hInstance типа HINSTANCE (в Win API, в дельфе, помоему просто . хотя я могу ошибаться)
hInstance это дескриптор экземпляра приложения, а Handle это дескриптор окна!
hInstance это дескриптор экземпляра приложения, а Handle это дескриптор окна!