Grundgerüst

[theomega]

Was ist an diesem Code falsch? Ist ein Konsolenprogramm und sollte ein Fenster erstellen, dass den gesamten Bildschirm füllt. Nur, dass das Programm beim start hängt und nichts passiert. Der Code stammt teilweise aus einem Buch

Delphi-Quellcode:

program strategie1;



uses
  SysUtils,
  windows,
  messages;

CONST
gamename='TEST 1';
mousevisible=TRUE;


var
parent:HWND;
mess:TMSG;
WndClas:TWNDCLASS;
breite,hoehe:longint;



function MainWndProc(hWNd:HWND;iMessage:UINT;wParam:WParam;lparam:LParam):LResult;export;stdcall;
begin;
result :=0;
case (iMessage) of
        WM_DESTROY: PostQuitMessage(0);
        else result:=DefWindowProc(hwnd,iMessage,wparam,lparam);

end;
end;

begin
if hPrevInst = 0 then
begin;

WndClas.style := CS_HREDRAW or CS_VREDRAW;
WndClas.lpfnWndProc := @MainWndProc;
WndCLas.cbClsExtra := 0;
WndClas.cbWndExtra := 0;
WndClas.hInstance := hInstance;
WndClas.hIcon := loadicon(0,IDI_APPLICATION);
WndClas.lpszMenuName := '';
WndClas.lpszClassName := 'SpielKlasse';

if (RegisterClass(WndClas)=0) then begin;
messagebox(0,'Klasse konnte nicht erstellt werden',nil,MB_OK or MB_IconSTOP or MB_TASKMODAL);
halt;
end;
end;

breite := GetSystemMetrics(SM_CXSCREEN);
hoehe := GetSystemMetrics(SM_CYSCREEN);

parent := CreateWindow('SpielKlasse',pchar(gamename),WS_POPUP,0,0,breite,hoehe,0,0,hInstance,nil);
showcursor(mousevisible);
ShowWindow(parent,SW_SHOW);

repeat
PeekMessage(mess,0,0,0,Pm_Remove);
TranslateMessage(mess);
DispatchMessage(mess);
until (mess.message=WM_Quit);
SHowCursor(TRUE);


end.

Danke

TO