Форум: "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.024 c
1-79370           Alicho                2002-02-07 14:54  2002.02.25  
Форма в dll


14-79471          perov                 2002-01-11 05:06  2002.02.25  
sftp


3-79258           tatk                  2002-01-30 19:18  2002.02.25  
Автоинкрементное поле


14-79453          Andrews               2002-01-09 11:45  2002.02.25  
Для тех кому нравится рассказ:


3-79272           MVova                 2002-01-30 11:46  2002.02.25  
ADOConnection почему не рвется связь