Posted by webmaster Guido
In Reply to: Stop another program Closing (stopping) an application can be done by closing its main window. That's done by sending a close- message to that window: PostMessage(WindowHandle, WM_CLOSE, 0, 0); You get the handle of a window with: FindWindow(PointerToWindowClass, PointerToWindowTitle) If you provide only one of the two parameters, use NIL for the other one. Here's some example code: try to stop the program with 'Calculator' in its title bar, and give a warning message if its window is not found: procedure TForm1.Button1Click(Sender: TObject); var H: HWND; begin H := FindWindow(nil, 'Calculator'); if H <> 0 then PostMessage(H, WM_CLOSE, 0, 0) else ShowMessage('Calculator not found'); end; |