Убивает запущенные процессы на каком-то другом компьютере (по сети) с помощью Delphi?

Question

Как убить запущенный процесс на другом компьютере (через сеть) с помощью Delphi?

Answer 1

Все, что вам нужно, можно найти по адресу Дорога к Дельфи , он просто написал в блоге о том, как это сделать 6 ноября, проверьте эту ссылку WMI Tasks using Delphi – Processes.

Answer 2

Вы можете использовать WTSTerminateProcess API или Jwscl (библиотека безопасности Windows) Терминальный сервер (класс TJwWTSProcess предлагает Завершить метод).

Пример небольшого кода:

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;