| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

LoadIcon [D6, Win95/98]

Sfagnum ©   (2003-02-27 16:01:00) 

есть такой код:
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...

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

---

STATIC   (2003-02-28 04:46:00) [1]

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

---

Sfagnum   (2003-02-27 16:23:00) [2]

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

---

Sfagnum   (2003-02-27 16:11:00) [3]

87

---

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

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

---

Наверх