Question

Delphi编写一个程序，如何访问进程列表并且杀死一个程序

如题所示，在后台运行，发现一个aaa.exe在运行，然后那个程序就杀死他

Answer 1

请参阅以下代码：

Delphi中强制结束一个进程

AFileName指定xxx.exe就行了,如Excel.exe 
先Uses TLHelp32;

procedure EndProcess(AFileName: string);
const
  PROCESS_TERMINATE=$0001;
var
  ExeFileName: String;
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  ExeFileName := AFileName;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
           UpperCase(ExeFileName))
       or (UpperCase(FProcessEntry32.szExeFile) =
           UpperCase(ExeFileName))) then
        TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                          FProcessEntry32.th32ProcessID), 0);
      ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
    end;
end;

追问

。。。怎么USES TLHelp32 提示找不到这个库

追答

估计你安装的版本不符，或者是软件未安装完整。

在高版本的 Delphi Xe，使用的是 Winapi.TlHelp32。

你可以搜索用Delphi 的 Find in Files 工具，以 CreateToolhelp32Snapshot 为关键字搜索delphi安装路径，看这个函数的所在单元及所在路径。

追问

你的是delphi9吧。。。我的才delphi7

追答

俺用的XE7

追问

？