Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

Иконка в API-приложении 


ZEE   (2001-12-26 13:30) [0]

Как присобачить иконку к приложению созданному на API (т.е. к самому exe-файлу). Через Project/Options.../[Application]-Icon: не получается.
Help please...



valery_f   (2001-12-26 13:47) [1]

> Options.../[Application]-Icon: не получается.
Вообще-то должно работать. Еще можно подключить RES файл с иконками.



Evgeny   (2001-12-26 14:31) [2]

Ну вообще то подключается через RES файл.

var
WndClass : TWndClassEX;

begin
WndClass.cbSize := SizeOf(WndClass);
WndClass.style := CS_HREDRAW or CS_VREDRAW;
WndClass.lpfnWndProc := //процедура обработки оконных сообщений;
WndClass.cbClsExtra := 0;
WndClass.cbWndExtra := 0;
WndClass.hInstance := hInstance;
// здесь грузим иконку
WndClass.hIcon := LoadIcon(hInstance, "ICON");
WndClass.hCursor := LoadCursor(0, IDC_ARROW);
WndClass.hbrBackGround := GetStockObject(LTGRAY_BRUSH);
WndClass.lpszMenuName := "";
WndClass.lpszClassName := szAppName;
// здесь грузим маленькую иконку
WndClass.hIconSm := LoadIcon(hInstance, "ICON");
// или, если иконка состоит из нескольких, можно сделать так:
WndClass.hIconSm := LoadImage(hInstance, MAKEINTRESOURCE(ICON),
IMAGE_ICON, 16, 16, 0);
...
end.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.022 c
14-79425          Knight                2002-01-03 11:29  2002.02.25  
Господа, вопрос на засыпку! Где качнуть НОРМАЛЬНО ЛинуксРедНат? Чтобы РеГет взял закачку в зубы!


6-79418           [TLS]Lord             2001-12-05 09:31  2002.02.25  
Что значит ошибка:


1-79382           ikar                  2002-02-08 13:51  2002.02.25  
Delph и COM помогите разобраться в типах


3-79298           Л.Ге                  2002-01-29 12:44  2002.02.25  
IB - поддержка массивов?


4-79516           Алекс1                2001-12-18 10:16  2002.02.25  
Удалить директорию в NT и перезагрузка в NT