Ручной запуск Explorer'а, а также и его выключение. [ XP / 7 ]

[malor]

Задача по запуску Explorer'а из своей программы (прописанной в параметре Shell реестра).

Имеем:

Код: (Delphi)

procedure TFormRunExplorer.btRunExplorerClick(Sender: TObject);
var
  FileName : String;
  SUInfo : TStartUpInfo;
  ProcInfo : TProcessInformation;
begin
  //ShellExecute(Handle, 'open', 'explorer.exe', 'C:\Windows\system32', '', SW_SHOW);
  //WinExec(PANsiChar('TASKKILL /F /IM explorer.exe'), SW_HIDE);
  //sleep(5000);
  //ShellExecute(Handle,'open','C:\WINDOWS\Explorer.EXE',nil,nil,SW_ShowNormal);

  ZeroMemory(@SUInfo, SizeOf(TStartUpInfo));
  with SUInfo do
  begin
   cb := SizeOf(TStartUpInfo);
   dwFlags := STARTF_USESHOWWINDOW;
   wShowWindow := SW_SHOWNORMAL;
  end;

  FileName := 'Explorer.exe';
  CreateProcess(PChar('C:\\Windows\\' + FileName), nil, nil, nil, False, 0, nil, nil, SUInfo, ProcInfo);
end;

Почему в результате имеем проводник, а не истинный рабочий стол с Панелью задач/Треем и прочим?

P.S. Обзор по Explorer'у:
1. Запуск explorer.exe
2. EXPLORER.EXE - Строковые параметры
3. Блокировка виндовс (Windows) с помощью Delphi

Windows XP SP3 / Win7 Ultimate

[zubr]

Сначала надо уже работающий процесс explorer.exe убить.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  id: Integer;
  hPr: cardinal;
begin
  id := StrToInt(Edit1.Text);
  hPr := OpenProcess(PROCESS_TERMINATE, False, id);
  TerminateProcess(hPr, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'explorer.exe', nil, nil, SW_SHOWNORMAL);
end;

[malor]

Чтоб в переменную id положить значение я с помощью какой функции его найду ?

[zubr]

CreateToolhelp32Snapshot, Process32First, Process32Next пока не найдешь процесс с именем explorer.exe

[malor]

Взял код из поста Исходник завершения процесса. Немного урезал:

Код: (Delphi)

const TerminateName = 'explorer.exe';

function FindExplorer(): boolean;
var
  FSnapshotHandle, ProcessHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  S : String;
begin

  Result := True;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  Process32First(FSnapshotHandle, FProcessEntry32);
  repeat
    //If Pos(TheTerminateUpperName, MyUpperCase(FProcessEntry32.szExeFile)) > 0 then
    //S := UpperCase(FProcessEntry32.szExeFile);
    If (FProcessEntry32.szExeFile = TerminateName) then
    Begin
      //ShowMessage('Найден explorer.exe!');
      ProcessHandle := OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID);
      if ProcessHandle <> 0 then
        begin
          Result := Result and  TerminateProcess(ProcessHandle, 0);
          if (not Result) then
            MessageBox(0, Pchar(SysErrorMessage(GetLastError)), 'Error1', 0);
          CloseHandle(ProcessHandle);

        end
        else
          //MessageBox(0, Pchar(SysErrorMessage(GetLastError)), 'Error2', 0);
  End;
  Until not Process32Next(FSnapshotHandle, FProcessEntry32);

  CloseHandle(FSnapshotHandle);

end;


procedure TFormRunExplorer.btKillExplorerClick(Sender: TObject);
var
  id: Integer;
  hPr: cardinal;
begin
  // Уничтожить Explorer
  //id := StrToInt(Edit1.Text);
  //hPr := OpenProcess(PROCESS_TERMINATE, False, id);
  //TerminateProcess(hPr, 1);
  FindExplorer();
end;

Так вот по нажатию на кнопку Explorer уничтожается на несколько секунд, а затем снова появляется. В результате чего ?

P.S. По теме:
OpenProcess не возвращает дескриптор
Получение списка процессов с помощью Tool Help
Список процессов с путями, Windows Seven! 64-bit
Получить путь к EXE по дескриптору окна
Как получить хэндлы всех пpоцессов, котоpые запущены на данный момент в системе
Отслеживание процесса
Получение информации о выполняющихся процессах.

[zubr]

Потому что в TerminateProcess параметр exitcode = 0, а надо 1. Я ж тебе привел пример.

[malor]

Explorer выгружается. Но, например, если у меня были открыты проги какие-то, то они остаются перед глазами. Как чтоб они тоже закрылись одновременно заодно  с explorer.exe сделать ?

[zubr]

Их тоже убить.

[v2]

TASKKILL /F /IM explorer* /T

[malor]

Вместо функции
FindExplorer();
написал:
WinExec('TaskKill /F /IM explorer* /T', SW_HIDE);
и да, Explorer'a не стало.

Но тогда к чему был весь предыдущий код нужен?..  

========================================================

Прописал свою программу в параметре Shell реестра. Когда она запустилась - нажал кнопку Убить Explorer. Затем по нажатию на Запуск Explorer произойдет открытие Проводника. Это Windows 7 32-bit.
Почему ?

[x77]

эксплорер - это и есть проводник. когда он запускается в качестве шелла, он стартует дополнительные окна, ТаскБар, например - это обычное окно, хозяин (owner) которого - эксплорер. когда ты тупо запускаешь эксплорер как прогу - он тупо запускается без всяких выкрутасов. этого его примечательное свойство используют как вирусы ("блокирующие" экран и требующие перечислить бабло на телефон за разблокировку), так и менеджеры типа Aston и др.