Форум: "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.045 c
1-79327           makruha               2002-02-07 21:48  2002.02.25  
TProgressBar мешает прорисоваться TLabel


1-79367           svv                   2002-02-08 16:40  2002.02.25  
Tedit переход по Enter к следующему Tedit


1-79374           kingdom               2002-02-08 18:20  2002.02.25  
Где взять библиотеку чтобы SMSки посылать?


14-79447          Socol                 2001-12-28 15:04  2002.02.25  
Загрузка файла!


1-79306           vitnt2000             2002-02-05 12:58  2002.02.25  
Текст из WebBrowser