1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
| program Project1;
uses
Windows,
Messages;
{$R *.res}
Function WindowProcedure(hWnd: HWND;
uMsg: UINT;
wParam: WPARAM;
lParam: LPARAM): LRESULT; Stdcall;
Begin
Case uMsg Of
WM_DESTROY: PostQuitMessage(0);
End;
Result := DefWindowProc( hWnd, uMsg, wParam, lParam );
End;
Var
WndClass :TWndClassEx;
MainWindow :THandle;
Msg :TMSG ;
Begin
With WndClass Do
Begin
cbSize := Sizeof( WNDCLASSEX );
Style := CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS;
lpfnWndProc := @WindowProcedure;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := hInstance;
hIcon := LoadIcon(0, IDI_APPLICATION);
hCursor := LoadCursor( 0, IDC_ARROW );
hbrBackground := COLOR_WINDOW;
lpszMenuName := Nil;
lpszClassName := 'Main Window';
hIconSm := LoadIcon(0, IDI_APPLICATION);
End;
If RegisterClassEx(WndClass) = 0 Then
Begin
MessageBox(0, PChar('Echec lors de l''enregistrement de la class !'),
PChar('Erreur'),
MB_ICONEXCLAMATION Or MB_OK Or MB_SYSTEMMODAL );
Exit;
End;
MainWindow := CreateWindowEx( WS_EX_CLIENTEDGE,
'Main Window',
'Anno 1701 Terrain Converter !',
WS_OVERLAPPEDWINDOW,
50,
50,
640,
480,
0,
0,
hInstance,
Nil );
If ( MainWindow = 0 ) Then
Begin
MessageBox(0, PChar('Echec lors de la création de la fenêtre !'),
PChar('Erreur'),
MB_ICONEXCLAMATION Or MB_OK Or MB_SYSTEMMODAL );
Exit;
End;
UpdateWindow( MainWindow );
ShowWindow( MainWindow, SW_NORMAL );
Repeat
If PeekMessage( Msg, 0, 0, 0, PM_REMOVE ) Then
Begin
TranslateMessage( Msg );
DispatchMessage( Msg );
End
Until Msg.Message = WM_QUIT;
Halt( Msg.wParam );
end. |
Narses
