как вшить иконку в мою прогу? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.223.124.244]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

как вшить иконку в мою прогу? , с нуля

Rouse_

Сообщ. #1 , 06.07.05, 06:32

Moderator

Рейтинг (т): 320

в .RC - файле подключаемом к проекту пишешь

100 ICON "100.ico"

для загрузки икоки:

with MainWindow do

begin

cbSize := SizeOf(MainWindow);

style := CS_HREDRAW or CS_VREDRAW;

lpfnWndProc := @WindowProc;

cbClsExtra := 0;

cbWndExtra := 0;

hIcon := LoadIcon(0, IDI_APPLICATION);

hCursor := LoadCursor(0, IDC_ARROW);

hbrBackground := COLOR_BTNFACE + 1;

lpszMenuName := nil;

lpszClassName := 'TDeliveryInstaller';

end;

MainWindow.hInstance := HInstance;

if RegisterClassEx(MainWindow) = 0 then Exit;

Width := 360;

Height := 200;

InitCommonControls;

Handle := CreateWindowEx(0, 'TDeliveryInstaller',

PChar(TXT_CAPTION), WS_OVERLAPPED or WS_SYSMENU,

Left, Top, Width, Height, 0, 0, HInstance, nil);

SendMessage(Handle, WM_SETICON, 1, LoadIcon(HInstance, MAKEINTRESOURCE(100)));

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0214 ] [ 16 queries used ] [ Generated: 28.04.24, 09:55 GMT ]