Ручной запуск Explorer.exe прогой, запущенной по [HKLM]...WinLogon/Shell [ Win 7 ]

[malor]

Прописал программу в параметре HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Shell реестра.

procedure TFormRunExplorer.btKillExplorerClick(Sender: TObject);
begin
  //KillExplorer();
  WinExec('TaskKill /F /IM explorer* /T', SW_HIDE);
end;


procedure TFormRunExplorer.btRunExplorerClick(Sender: TObject);
var
  FileName : String;
  SUInfo : TStartUpInfo;
  ProcInfo : TProcessInformation;
begin

  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;

Когда она запустилась - нажал кнопку Запуск Explorer - происходит открытие Проводника. Почему ?



Если запускать эту программку обычным путем, сидя в винде, то нажатия на кнопки уничтожают explorer и воссоздают.
Что ж так не происходит при запуске программы при загрузке Windows...
Windows 7 32-bit.

[Aliens_wolfs]

Лучше сделай так:

В реестре в ключе
HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Shell
пропиши так:
Explore.exe c:\путь\твоя прога

Будет запускаться и Explorer и твоя прога, проверенно работает.

[malor]

Aw>> Будет запускаться и Explorer и твоя прога

Но мне не нужно. чтобы Explorer запускался! Этим хочу управлять самостоятельно.

[Aliens_wolfs]

Попробуй сделать проверку, выгрузи Explorer, а затем в диспетчере задач зайди в файл выбери новая задача, там в строке набери Explorer.exe без пути. Проверь как запуститься.

Можно просто Explorer запустить

Так:
пропиши в проекте в uses ShellApi;
ShellExecute(0,'open',Pchar('Explorer.exe'), nil, nil, SW_SHOWNORMAL);
или так:
winexec(Pchar('Explorer.exe'), SW_SHOWNORMAL);

Эти способы работают, у меня оболочка загружается нормально