Иконка в 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 файл с иконками.

Ну вообще то подключается через 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.

Иконка в API-приложении Найти похожие ветки