Закрыть активную программу

[Михаил Юрьевич]

Есть код для закрытия активной программы

procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
PROCESS_TERMINATE = $0001;var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;begin
TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle));
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);end;

если вызывать так

killprogram(nil,'Безымянный - paint');

но это если знать заголовок окна,а если я не знаю заголовка

[raxp]

>>> тырк по имени процесса (раскомментить закомментированное)

[Пепел Феникса]

для активной программы?
это код для закрытия программы по классу/имени окна.
для закрытия активной проги(проги с фокусом) делаем так

procedure KillActiveProgram;
const PROCESS_TERMINATE = $0001;var
        ProcessHandle : THandle;
        ProcessID: Integer;
begin
 GetWindowThreadProcessID(GetForegroundWindow, @ProcessID);
 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;

[Alex Cones]

для закрытия активной проги(проги с фокусом) делаем так

А как вызвать процедуру? В смысле, есть форма, на форме батона, на батоне эта процедура. Если нажать на батон - прога станет активной и закроет сама себя.

[Пепел Феникса]

Закрыть активную программу

код отвечает на это
значть надо или по таймеру...или с помощью слип...и тд и тп..

можно еще через
The WM_SETFOCUS message is sent to a window after it has gained the keyboard focus.

WM_SETFOCUS
hwndLoseFocus = (HWND) wParam; // handle of window losing focus


и тогда убивать окно по хендлу.

[Михаил Юрьевич]

Всем большое спасибо

[SERG1980]

var H:HWND;
H:=GetForegroundWindow; 
PostMessage(H,WM_SYSCOMMAND,SC_CLOSE,0);