使用Delphi杀死某些其他机器(通过网络)的运行进程？

Question

如何使用Delphi杀死其他机器(通过网络)的运行进程？

Answer 1

您需要的一切都可以在The Road to Delphi找到,他刚刚在11月6日博客上介绍了如何做到这一点,请查看此链接WMI Tasks using Delphi – Processes.

Answer 2

您可以使用WTSTerminateProcess API 或使用Jwscl（Windows 安全库）终端服务器单元（TJwWTSProcess类提供 Terminate 方法）。

小代码示例：

var 
  TS: TJwTerminalServer;
begin
  TS := TJwTerminalServer.Create('Remote');
  try
    if TS.EnumerateProcess then
    begin
      for i := 0 to TS.Processes.Count -1 do
      begin
        if TS.Processes[i].Name = 'notepad.exe' then
        begin
           TS.Processes[i].Terminate;
        end;
      end;
    end;
  finally
    TS.Free;
  end;
end;