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
| function WndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
case (Msg) of
WM_CREATE:
begin
//inserer le code du debut de programe
end;
WM_CLOSE:
begin
PostQuitMessage(0);
Result := 0
end;
WM_KEYDOWN
begin
// le code lors de l'appui d'une touche
Result := 0;
end;
WM_KEYUP:
begin
// le code lors de relachement d'une touche
Result := 0;
end;
WM_SIZE:
begin
//message de redimensionement de fenetre
Result := 0;
end;
else
Result := DefWindowProc(hWnd, Msg, wParam, lParam); // Redefinir les message le cas echeant
end;
end;
// le winproc sert a remplacer celui de la fenetre
c'est a dire du menu
function WinMain(hInstance : HINST; hPrevInstance : HINST;
lpCmdLine : PChar; nCmdShow : Integer) : Integer; stdcall;
var
msg : TMsg;
begin
Finished := false
// Main message loop:
while not finished do
begin
if (PeekMessage(msg, 0, 0, 0, PM_REMOVE)) then
// verifie l'arrive des messages
begin
if (msg.message = WM_QUIT) then
finished := True
else
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end
end;
Result := msg.wParam;
end;
begin
WinMain( hInstance, hPrevInst, CmdLine, CmdShow );
end. |
Partager