Как вшить иконку в мою прогу?, с нуля |
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