Работа с процессами Windows XP

[DENIS_1992]

Пишу курсовую редактор реестра.
Необходимо програмно при нажатии на кнопку, завершить процесс в диспетчере задач explorer.exe, а затем сново запустить explorer.exe.
Помогите пожалуйста!!!

[GunSmoker]

А зачем редактору реестра это делать?

[FaTaL]

Например так

// Убиваем эксплорер
winexec ('taskkill /f /im explorer.exe', SW_HIDE);
// ждём 2 секунды
sleep (2000);
// Запускаем
winexec ('explorer.exe', sw_hide);

[Человек_Борща]

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

Например так

// Убиваем эксплорер
winexec ('taskkill /f /im explorer.exe', SW_HIDE);
// ждём 2 секунды
sleep (2000);
// Запускаем
winexec ('explorer.exe', sw_hide);

Вы бред написали //без обид

А если explorer по какой-то причине не закрывается(Его что-то держит)?
Запустите ещё один, а затем и ещё 100500... Зачем же так?

Если уж программируете, то программируйте правильно=)

uses TlHelp32;

procedure REstart(aProcessName: string);
  function GetProcessPID(ExeFileName: string): Cardinal;
  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 ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
        AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
        AnsiUpperCase(ExeFileName))) then
        Result := FProcessEntry32.Th32ProcessID;
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
  end;


var
  ahProcess: Thandle;
begin
  ahProcess := OpenProcess(PROCESS_ALL_ACCESS, False, GetProcessPID(aProcessName));
  if ahProcess <> 0 then
  begin
    try
      TerminateProcess(ahProcess, 0);
      WaitForSingleObject(ahProcess, INFINITE); //Ждём завершения процесса. 
      WinExec(PChar(aProcessName), SW_SHOW); //запускаем
    finally
      CloseHandle(ahProcess);
    end;
  end;
end;

[GunSmoker]

Вы бред написали //без обид

А если explorer по какой-то причине не закрывается(Его что-то держит)?

Ты хоть знаешь, что делает taskkill с /F?

[JTG]

Да запросто может не убиться. Нет доступа, вылезло окно антивируса с предупреждением и ждёт ввода пользователя и тут бац - вторая копия.

Второй вариант, кстати, тоже не айс, если будет запущено несколько процессов с одинаковыми именами.

[GunSmoker]

Ну ты как бы отделяй мух от котлет: или использование taskkill на корню не верно, или же у кого-то мозгов не хватает обработку ошибок расставить.

Во втором случае отказ от WinExec ничего, собственно, не изменит. Что и показывает пример Человека_Борща, у которого с обработкой ошибок всегда проблемы.

[JTG]

Во втором случае либо не произойдёт ничего, если не хватит прав открыть процесс (PROCESS_ALL_ACCESS слишком оптимистично), запустит процесс только либо после завершения предыдущего, или повиснет в бесконечном ожидании ahProcess, если TerminateProcess инициирует завершение процесса, но то упрётся рогом в результате глюка (отладчик в процессе трассировки внутренностей или ночная сборка файрфокса, например )

[DENIS_1992]

При изменении настроек в реестре необходимо перезапускать систему, чтобы изменения вступили в силу, а если убить процесс explorer.exe, а затем запустить заново, то большинство настроек вступят в силу... Программа предназначена для простых пользователей, процесс завершения и запуска процесса explorer.exe будет как бы обновлением настроек в редакторе реестра...всё работает с администраторскими правами, а будут ли ограничения при выполнении данных действий, если ты не администратор???
Спасибо всем за помощь!!!

[GunSmoker]

Вы обалдели, что-ли? Это делается рассылкой уведомлений об изменении настроек.

Про какие конкретно настройки идёт речь?