| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: WinAPI и системное программирование > Кнопка выхода |
| Автор: Storm 19.11.2004, 00:35 |
| Такой вопрос: как на винапи написать кнопку для выхода из программы? 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; что вместо "???" поставить надо? Заранее спасибо! |
| Автор: SCHMaster 19.11.2004, 04:19 |
| DestroyWindow(Window); |
| Автор: oleg1973 19.11.2004, 11:29 |
| ExitProcess,0 |
| Автор: Storm 22.11.2004, 21:27 |
| Спасибо! Помогло! |