- aWindow := CreateWindowEx(0,
- szClassName,
- szAppName,
- WS_CAPTION or WS_VISIBLE or WS_SYSMENU
- or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,
- CW_USEDEFAULT,
- CW_USEDEFAULT,
- 640,
- 480,
- 0,
- 0,
- hInstance,
- nil);
- // aWindow = 0 -> Fehlschlag
- if aWindow=0 then
- begin
- MessageBox(0,'2','2',MB_OK);
- Halt(2);
- end;