проблема с создание окна

← →
Pavels (2003-10-11 13:57) [0]

function WinProc(Handler:THandle; Msg:TMessage; WParam,LParam:DWord):Boolean;
begin
case Msg.Msg of
WM_MOVE : begin

end;
WM_DESTROY : begin

end;
end;
Result:=true;
end;

var
r:Integer;

begin
x.cbSize:=sizeof(WNDCLASSEX);
x.style:=(CS_HREDRAW or CS_VREDRAW);
x.lpfnWndProc:=@WinProc;
x.cbClsExtra:=0;
x.cbWndExtra:=0;
x.hInstance:=HInstance;
x.lpszClassName:=PChar("szWindowClass");
r:=RegisterClassEx(x);

m:=CreateWindow(PChar("szWindowClass"),PChar("Alex"),WS_OVERLAPPEDWINDOW,10,10,100,100,0,0,HInstance,0);
ShowWindow(m,SW_SHOW);
вываливет ексепшон на последей строке ...

← →
Nick Denry © (2003-10-11 14:03) [1]

program winmin;

uses
windows, messages;

{"

← →
Nick Denry © (2003-10-11 14:03) [2]

wc.cbSize:=sizeof(wc);
wc.style:=cs_hredraw or cs_vredraw;
wc.lpfnWndProc:=@WindowProc;
wc.cbClsExtra:=0;

wc.cbWndExtra:=0;
wc.hInstance:=HInstance;
wc.hIcon:=LoadIcon(0,idi_application);
wc.hCursor:=LoadCursor(0,idc_arrow);
wc.hbrBackground:=COLOR_BTNFACE+1;
wc.lpszMenuName:=nil;
wc.lpszClassName:="WinMin : Main";
RegisterClassEx(wc); //

← →
Nick Denry © (2003-10-11 14:04) [3]

Задолбали. скачай http://www.soobcha.ru/rushelp
и не мучайся и других не мучай!

← →
Pavels (2003-10-11 14:14) [4]

все
спасибо за
ссылку,
глупых вопросов надеюсь небудет :))

Ready.
a:\>_

проблема с создание окна Найти похожие ветки