Завершение работы чужой программы

[Viteef]

Как можно закрыть другую программу? Очень надо. Спасибо.

[rpy3uH]

по какому параметру тебе надо закрыть?
вот закрытие процесса по ID

hProcess := OpenProcess(PROCESS_TERMINATE, false, ProcessID);
if hProcess > 0 then
  begin
    TerminateProcess(hProcess, 0);
     CloseHandle(hProcess);
  end;

[Viteef]

Сообщение от rpy3uH

по какому параметру тебе надо закрыть?
[/code]

Ну не знаю! Задача такая: надо перезапустить программу, которая сидит в ОЗУ, запускаю ее без проблем через WinExec, а вот с завершением...

[rpy3uH]

получение ID процесса по его имени

function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

получив ID, убивай выше приведённым способом

[JTG]

Бее, гадость

запускаю ее без проблем через WinExec, а вот с завершением...

winexec тока в вирусах и применять - параметров мало, десяток байт сэкономить, эта функция устарела, рой в сторону CreateProcess или CreateProcessEx, тогда, как говорил классик, "я тебе породив, я тебе і вб'ю" =)

[Viteef]

Сообщение от JTG

Бее, гадость

winexec - параметров мало, десяток байт сэкономить, эта функция устарела

А все-таки в моем случае WinExec вполне подходит, и не надо ничего выдумывать с CreateProcess и ему подобными...

[JTG]

Ну вот такая фигня - либо просто создать с WinExec но мудрить с PIDами чтоб завершить, либо мудрить с CreateProcess и легко завершить по TerminateProcess, поскольку будем иметь handle. Второй способ лучше тем, что можно следить за процессом, проверить работает ли он ещё и т.п.

И не так тут всё сложно (запустить)

var
  PI: TProcessInformation;
  SI: TStartupInfo;

function LamaCreateProcess(FilePath :string): string;
begin
  FillMemory(@SI, sizeof(SI), 0);
  SI.cb := sizeof(SI);

  CreateProcess(Nil,PChar(FilePath),Nil, Nil, False,
                      NORMAL_PRIORITY_CLASS, Nil, Nil,SI,PL);
end;

Завершить ещё проще

 TerminateProcess(PI.hProcess,0);

---
А, да зыбыл, если совсем по правилам то
CloseHandle(PI.hProcess);
CloseHandle(PI.hThread);
надо по Form.onclose сделать, чтоб в памяти не гадить

[Alter]

А ещё можно так( обмануть проги, даже Каспера ):
типа завершение Виндовс идёт
procedure TForm1.Button1Click(Sender: TObject);
Type EXE = RECORD
Nm :String;
Cls :String;
END;
VAR
H :HWND; TExe :EXE; WCls :ARRAY[0..255]of Char;
begin
Texe.Nm := 'Имя программы - Заголовок';
H := FindWindow(nil, PChar(TExe.Nm));
GetClassName(H, WCls, SizeOF(WCls));
TExe.Cls := String( WCls );
H := FindWindow(PChar(TExe.Cls), PChar(TExe.Nm));
PostMessage(H, wm_endsession, 0, 0);
PostMessage(H, WM_QUERYENDSESSION, 0, 0);
end;

[JTG]

Каспера так не обманешь (если включена самозащита, а она включена по умолчанию), сервисная часть останется в памяти и будет молча блокировать выполнение подозрительных программ/скриптов... - при попытке запустить какой-нить ехешник с трояном, например, будет стандартное виндовое окно "Невозможно получить доступ к файлу, т.к. файл занят другим процессом" или "Невозможно произвести чтение с диска"...

(гараздо интереснее, если прибить сервис, оставив при этом оболочку - он тада в панике маячит в трее восклицательным знаком, и орёт, типа нарушен механизм защиты

кстати при выключении винды сервис продолжает работает даже после остановки рабочей станции до самого конца, фиг-где найдёшь вирус, который тоже сможет в это время работать

[Alter]

Сообщение от JTG

Каспера так не обманешь (если включена самозащита, а она включена по умолчанию), сервисная часть останется в памяти и будет молча блокировать выполнение подозрительных программ/скриптов... - при попытке запустить какой-нить ехешник с трояном, например, будет стандартное виндовое окно "Невозможно получить доступ к файлу, т.к. файл занят другим процессом" или "Невозможно произвести чтение с диска"...

(гараздо интереснее, если прибить сервис, оставив при этом оболочку - он тада в панике маячит в трее восклицательным знаком, и орёт, типа нарушен механизм защиты

кстати при выключении винды сервис продолжает работает даже после остановки рабочей станции до самого конца, фиг-где найдёшь вирус, который тоже сможет в это время работать

Хочешь позабавиться с Kaспеrom тогда используй это{когда надо разблокировать выгрузи прогу}: