Как закончить процесс вызываемый внутри сервиса?

[dmitry86]

Всем привет,
возникла такая проблема.
по наследству достался исходник Windows сервиса, я его подработал под новую версию софта, под который он написан, но после старта и остановки процесс висит в диспетчере задач, вместо того что бы отработать и исчезнуть, приходиться потом убивать их вручную. Речь идет о процессах stopserver.exe и startserver.exe . Подразумеваю надо куда-то вставить что-то или подправить, помогите пожалуйста т.к сам прежде с этим не работал.
СПАСИБО

Привожу открывок кода:

procedure TALFTSAService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
 ShellExecute(0, 'open', PChar(ALLIANCE + '\BSS\BIN\' + ARCH + '\stopserver.exe'), 'silent_stop', nil, SW_SHOWNORMAL) ;
 while (CountSAAProcs('bs_') > 0) do
   Sleep(10000);
 Sleep (10000);
 while (CountSAAProcs('aleempty') > 0) do
   Sleep(5000);
 Sleep(5000);
end;

procedure TALFTSAService.ServiceStart(Sender: TService;
 var Started: Boolean);
begin
 ALLIANCE := 'C:\Alliance\Access';
 ARCH := 'win32';
 if (ALLIANCE <> '') and (ARCH <> '') then
 begin
   ShellExecute(0, 'open', PChar(ALLIANCE + '\BSS\BIN\' + ARCH + '\startserver.exe'), 'silent_start', nil, SW_SHOWNORMAL) ;
   while (CountSAAProcs('bs_') < 5) do
     Sleep(10000);
   while (CountSAAProcs('mxs_') < 8) do
     Sleep(10000);
 end

[SnX]

Вместо ShellExecute используй CreateProcess, а затем по хендлу убивай процесс когда необходимо с помощью TerminateProcess.

[dr.Chas]

function KillTask(ExeFileName: string): Integer;
const PROCESS_TERMINATE = $0001;
var ContinueLoop: BOOL;
    FSnapshotHandle: THandle;
    FProcessEntry32: TProcessEntry32;
begin 
  Result := 0;
  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
    Result := Integer(TerminateProcess(
    OpenProcess(PROCESS_TERMINATE,
    BOOL(0),
    FProcessEntry32.th32ProcessID),
    0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle); 
end;

KillTask('имя.exe');

Может так?

[dmitry86]

Ребят спасибо, не комментирую лишь мотаю на ус, тк в программирование не силен.

В целом все работает, единственное что когда сервис останавливается в диспетчере задач остается торчать stopserver.exe и он держит том, который монтируется с внешнего стораджа кластерным софтом, и из-за этого просходит подвисание тома, после ручного удаления stopserver все отрабатывает прекрасно, логический том уходит в офлайн.

Я буду очень признателен, если допишите к моему коду строчку, которая как раз будет только вызывать stopserver.exe , а не оставлять его навсегда
К сожалению проверить смогу только в понедельник на работе.
Спасибо

[dr.Chas]

winexec('stopserver.exe', SW_Show {стиль окна} );
shellexecute //другая функция

[dmitry86]

а как сделать что бы вместо этого куска
while (CountSAAProcs('aleempty') > 0) do
Sleep(5000);
Sleep(5000);
end;

было бы когда bs_ процессов становиться ноль (уже есть эта строчка), ждать 10 сек и удалять процесс stopserver.exe...

Спасибо