function KillProcess(Process: String): Boolean; var aProcesses: Array[0..1023] of DWORD; cbNeeded: DWORD; cProcesses: DWORD; i: Integer; szProcessName: Array[0..MAX_PATH-1] of Char; hProcess: THandle; hMod: HModule; begin Result := False; if not EnumProcesses(@aProcesses, sizeof(aProcesses), cbNeeded) then exit; cProcesses := cbNeeded div sizeof(DWORD); for i := 0 to cProcesses-1 do begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ or PROCESS_TERMINATE, False, aProcesses[i]); if hProcess <> 0 then begin if EnumProcessModules(hProcess, @hMod, sizeof(hMod), cbNeeded) then begin GetModuleBaseName(hProcess, hMod, szProcessName, sizeof(szProcessName)); if UpperCase(szProcessName) = AnsiUpperString(Process) then begin if TerminateProcess(hProcess, 0) then Result := True; end; end; end; CloseHandle(hProcess); end; end;