Форум: "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.72 MB
Время: 0.054 c
14-79457          Иван Шихалев          2002-01-08 20:05  2002.02.25  
Крик души!


1-79358           dimich                2002-02-08 10:12  2002.02.25  
У меня огромный прикол!


1-79377           Song                  2002-02-08 20:10  2002.02.25  
В приведённой ниже процедуре почему-то не работает удаление ключа из реестра (из секции автозапуска). Подскажите почему?


3-79279           #Dimedrol             2002-01-31 10:38  2002.02.25  
ADO


14-79432          kaif                  2002-01-06 04:03  2002.02.25  
---|Ветка была без названия|---