Текущий архив: 2003.04.24;
Скачать: CL | DM;

Вниз

LoadIcon   Найти похожие ветки 

← →
Sfagnum   (2003-02-27 16:01) [0]

есть такой код:
program Setup;

uses windows, messages;
{$R setup.res}

var wc : TWndClassEx;
wndMain: HWND;
Mesg : TMsg;
...
callback функция
...

var xPos,yPos,nWidth,nHeight : Integer;
begin
with wc do begin
cbSize:=sizeof(wc);
style:=CS_HREDRAW or CS_VREDRAW;
lpfnWndProc:=@WindowProc;
cbClsExtra:=0;
cbWndExtra:=0;
hInstance:=HInstance;
hIcon:=LoadIcon(hInstance,PChar("MAINICON"));
hCursor:=LoadCursor(0,IDC_ARROW);
hbrBackground:=COLOR_BTNFACE+1;
lpszMenuName:=nil;
lpszClassName:="WinMin : Main";
end;
RegisterClassEx(wc);

....

end.
хочу шоб у окошка которое будет показывать была иконка расположенная в ресурсах - она там одна - MAINICON
почему она не грузиться? ошибка происходит именно в LoadIcon...

Заранее спасибо

---

← →
Игорь Шевченко   (2003-02-27 16:05) [1]

Что говорит GetLastError ?

---

← →
Sfagnum   (2003-02-27 16:11) [2]

87

---

← →
Sfagnum   (2003-02-27 16:23) [3]

вопрос снят
Instance := GetModuleHandle(nil);
этой строчки не хватало ну и соответсвующих изменений

---

← →
STATIC   (2003-02-28 04:46) [4]

Ага.
hInstance:= SysInit.HInstance;
hIcon:=LoadIcon(SysInit.hInstance,PChar("MAINICON"));

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.24;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.006 c