Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];
Внизпроблема с создание окна Найти похожие ветки
← →
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]все
спасибо за
ссылку,
глупых вопросов надеюсь небудет :))
← →
Nick Denry (2003-10-11 14:17) [5]Ready.
a:\>_
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c