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

Previous  Top  Next

    
 

 

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

Code:

100 ICON "100.ico"

 

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

Code:

with MainWindow do

begin

{©Drkb v.3(2007): www.drkb.ru}

 

   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)));

 
Взято из http://forum.sources.ru

Автор: Rouse_

 

©Drkb::02347