Проверка и востанавление процеса %(

[Pirotexnik]

Самая ацкая тема. Помогите мне "слепить" код проверки процеса и код поднятия этогоже поцеса.
Тоесть:

function IsRunning(sName: string): boolean;
var
  han: THandle;
  ProcStruct: PROCESSENTRY32; // from "tlhelp32" in uses clause
  sID: string;
begin
  Result := false;
  // Get a snapshot of the system
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;
  // Loop thru the processes until we find it or hit the end
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
    repeat
      sID := ExtractFileName(ProcStruct.szExeFile);
      // Check only against the portion of the name supplied, ignoring case
      if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
      begin
        // Report we found it
        Result := true;
        Break;
      end;
    until not Process32Next(han, ProcStruct);
  end;
  // clean-up
  CloseHandle(han);
end;

Вот код с дэлфи ворлд

Он проверяет запущен ли процес. Но т.к. мой опыт уже СУТКИ =)
Кароче по теме: Как замутить проверку именно ЗАПУШЕНОГО моей программой процеса, и с парамертрами указаными при запуске востанавливать, если он упал!

P.S. Можно ко мне на "ты"?

[XuTpbIu]

If not IsRunning('hlds.exe') {если я правильно понял то имя будет таким :)} then
  ShellExecute({то что ты уже узнал из прошлых тем :)});

ЗЫ

Сами попробуйте в 14 лет сутки ипашить делфи с нуля.

Уже не попробую

[Pirotexnik]

Встречный вопрос:
Если человек запускае 2 сервера с этой проги?
И как она поймёт где её процес?
И как его поднимать при падение????!!

[Квэнди]

чтож, полумат-полубан.
предупреждение вам.

[Pirotexnik]

хм, стронно и не лочически!
Полу мат, полу бан, а предупреждение целое!?

Еще и за флуд!
Достал уже - сплошной флуд во всех темах!
Это не чат! Это - форум программистов!
И свои привычки, из подворотни, лучше оставлять перед входом на форум.

Извините...

[mihali4]

2-ой кросспост на http://programmersforum.ru/showthread.php?t=43158
Закрыто.