| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблема с создание окна [D7, WinXP]
Pavels © (2003-10-11 13:57:00)
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:17:00) [1]
Ready.
a:\>_
Pavels (2003-10-11 14:14:00) [2]
все
спасибо за
ссылку,
глупых вопросов надеюсь небудет :))
Nick Denry (2003-10-11 14:04:00) [3]
Задолбали. скачай http://www.soobcha.ru/rushelp
и не мучайся и других не мучай!
Nick Denry (2003-10-11 14:03:00) [4]
program winmin;
uses
windows, messages;
{"
Nick Denry (2003-10-11 14:03:00) [5]
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); //
| |
