WinExec (завершение процесса)

[romanzi]

 WinExec(PANsiChar('TASKKILL /F /IM gta_sa.exe'), SW_HIDE);

Это работает на Windows 7 или только на XP?
Если только на ХР,то дайте код завершения процесса на 7.

[rpy3uH]

пользуйся последовательностью

GetProcessIDByName
OpenProcess
TerminateProcess

везде и всегда работает

[NetSpace]

Вот этот код, который тебе предложили выше, работает прекрасно и под XP и под 7. Лично я его работой очень доволен.

//----- убиваем процесс по заголовку окна --------------------------------------
procedure TForm1.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,'Мои документы')