Такой вопрос: как на винапи написать кнопку для выхода из программы?
var
hokbutton:HWnd;

Function WindowProc(Window:Hwnd; Mes, wParam ,lParam:longint):Longint; export;stdcall;
begin
...
wm_Command:
begin
// ---- Push Button -----
if (LoWord(wParam) = id_Ok) and (HiWord(wParam) = bn_Clicked) then
begin
???
end;

Procedure WinMain;

Var
Message:TMsg;
WindowClass:TWndClass;
begin
........
hOkButton:=CreateWindow('Button','Exit',
bs_PushButton or ws_Child or ws_Visible or ws_TabStop,
200,250,80,20,Window,id_Ok,hinstance,nil);

end;

что вместо "???" поставить надо?
Заранее спасибо!

DestroyWindow(Window);

ExitProcess,0

Спасибо! Помогло!