Заменить Shell на свою программу и запустить explorer.exe из под программы

@Пс · Регистрация: 29.07.2018

Студворк — интернет-сервис помощи студентам

Всем привет. Стоит задача: Заменить Shell на свою программу и запустить explorer.exe из под программы. Программа простая,после запроса основного пароля пользователя запускается моя программа и запрашивает дополнительный пароль(эдакая двухфакторная авторизация для организации)
Код:

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
unit MainFormUnit;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, ShellAPI,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, TlHelp32;
 
type
  TLogonForm = class(TForm)
    PwdEdit: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormResize(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  LogonForm: TLogonForm;
 
implementation
 
{$R *.dfm}
 
procedure TLogonForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if PwdEdit.Text = 'pwd123' then
  begin
    ShellExecute(Handle, 'open', 'explorer.exe', nil, nil, SW_SHOWNORMAL);
    CanClose := true;
    exit;
  end;
  CanClose := False;
end;
 
procedure TLogonForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
    Close;
end;
 
procedure TLogonForm.FormResize(Sender: TObject);
var
  cw, ch: integer;
begin
  cw := Round(Width / 2) - (Round(PwdEdit.Width / 2));
  ch := Round(Height / 2);
  PwdEdit.Left := cw;
  PwdEdit.Top := ch;
end;
 
end.

В Компьютер\HKEY_LOCAL_MACHINE\SOFTWARE\Mi crosoft\Windows NT\CurrentVersion\Winlogon в свойство Shell
поставил свою программу.
Собственно вопрос,после перезагрузки моя программа запускается,все хорошо,но после ввода верного пароля запускается не рабочий стол,а обычный файловый проводник,такое бывает если explorer.exe уже запущен,но я пробовал и завершать этот процесс перед его запуском,все безуспешно. Знатоков прошу помочь решить эту проблему.
Заранее спасибо.

@Worldmaster · 23.05.2023, 11:37

Пс, Наверное надо запускать вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
  // Ваш код и логика программы
 
  // Запуск вашей программы
  ShellExecute(0, 'open', 'путь_к_вашей_программе.exe', nil, nil, SW_SHOWNORMAL);
 
  // Ожидание завершения вашей программы
  // ...
 
  // Завершение вашей программы
  ExitProcess(0);
end.

Может быть система определяет что программа которая записана в Shell запущена и автоматом запускает эксплорер в режиме проводника.
Надо чтобы вашей программы не было в списке работающих на момент запуска проводника.

@Пс · 23.05.2023, 11:42 **[ТС]**

Worldmaster, Хмм,а это в принципе логичное поведение.Спасибо,сейчас попробую.

@AzAtom · 23.05.2023, 11:43

Попробуй запускать проводник через CreateProcess.

@Пс · 23.05.2023, 12:33 **[ТС]**

AzAtom, Тоже пробовал.

Добавлено через 42 минуты
Worldmaster,
Может я что-то не так понял.Я написал вторую программу,которая запускает explorer.exe

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program StartExplorer;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  ShellAPI, WinAPI.Windows;
 
begin
  sleep(1000);
  ShellExecute(GetForegroundWindow, 'open', 'explorer.exe', nil, nil,
    SW_SHOWNORMAL);
end.

И переделал основную:

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
unit MainFormUnit;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, ShellAPI,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, TlHelp32;
 
type
  TLogonForm = class(TForm)
    PwdEdit: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormResize(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  LogonForm: TLogonForm;
 
implementation
 
{$R *.dfm}
 
procedure TLogonForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if PwdEdit.Text = 'pwd123' then
  begin
    ShellExecute(Handle, 'open',
      'StartExplorer.exe',
      nil, nil, SW_HIDE);
    CanClose := true;
    exit;
  end;
 
  CanClose := False;
end;
 
procedure TLogonForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
    Close;
end;
 
procedure TLogonForm.FormResize(Sender: TObject);
var
  cw, ch: integer;
begin
  cw := Round(Width / 2) - (Round(PwdEdit.Width / 2));
  ch := Round(Height / 2);
  PwdEdit.Left := cw;
  PwdEdit.Top := ch;
end;
 
end.

Но все равно запускается файловый проводник.

@Worldmaster · 23.05.2023, 12:59

Пс, а хэндл зачем передаете и чему он равен?

Delphi
1
2
3
ShellExecute(Handle, 'open',
      'StartExplorer.exe',
      nil, nil, SW_HIDE);

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

@Пс · 23.05.2023, 13:22 **[ТС]**

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

а хэндл зачем передаете и чему он равен?

Хэндл окна моего основного приложения,но я и с 0 пробовал

Добавлено через 2 минуты

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

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

Так работает

Добавлено через 1 минуту
Хотя нет.Работает если в Shell указана explorer.exe.
А если указана моя программа,то не работает.

@Worldmaster · 23.05.2023, 14:05

Сообщение от Пс

Хотя нет.Работает если в Shell указана explorer.exe.

А может него есть какие нибудь параметры??

@Пс · 23.05.2023, 14:23 **[ТС]**

Worldmaster, Параметры командной строки?Нет,я выводил список всех переданных моей программе параметров,их вообще нет.

Добавлено через 12 минут
Worldmaster, Возможно,после запуска моей программы в Shell,надо менять его обратно на explorer.exe,но так не получится,потому что у пользователей нет прав на замену ключей в реестре.И к тому же,после запуска explorer'a надо будет снова в Shell ставить мою программу,что бы после перезагрузки снова она запустилась.

Новые блоги и статьи Все статьи Все блоги /
Квантовые алгоритмы и обработка строк в Q# EggHead 07.06.2025 Квантовые вычисления перевернули наше представление о том, как работать с данными, а Q# стал одним из ключевых языков для разработки квантовых алгоритмов. В традиционых системах мы оперируем битами —. . .	NUnit и C# UnmanagedCoder 07.06.2025 В . NET существует несколько фреймворков для тестирования: MSTest (встроенный в Visual Studio), xUnit. net (более новый фреймворк) и, собственно, NUnit. Каждый имеет свои преимущества, но NUnit. . .	с++ Что нового? russiannick 06.06.2025 Продолжаю обзор dev-cpp5. 11. Посмотрев на проекты, предоставленные нам для обучения, становится видно, что они разные по содержащимся файлам где: . dev обязательно присутствует . cpp/ . c один из них. . .	WebAssembly в Kubernetes Mr. Docker 06.06.2025 WebAssembly изначально разрабатывался как бинарный формат инструкций для виртуальной машины, обеспечивающий высокую производительность в браузерах. Но потенциал технологии оказался гораздо шире - она. . .	Как создать первый микросервис на C# с ASP.NET Core, step by step stackOverflow 06.06.2025 Если говорить простыми словами, микросервисная архитектура — это подход к разработке, при котором приложение строится как набор небольших, слабо связанных сервисов, каждый из которых отвечает за. . .
Рисование коллайдеров Box2D v2 на Three.js с помощью порта @box2d/core 8Observer8 06.06.2025 Используется порт Box2D v2 под названием @box2d/ core - пакет NPM. Загрузил документацию Box2D v2 на Netlify: https:/ / box2d-v2-docs. netlify. app/ Документацию Box2D v2 можно скачать с официального. . .	Как создать стек в Python AI_Generated 05.06.2025 Как архитектор с более чем десятилетним опытом работы с Python, я неоднократно убеждался, что знание низкоуровневых механизмов работы стеков дает конкурентное преимущество при решении сложных задач. . . .	Server-Sent Events (SSE) в Node.js run.dev 05.06.2025 Потоковая передача данных с сервера прямо в браузер стала повседневной потребностью - от биржевых графиков и спортивных трансляций до чатов и умных дашбордов. Много лет разработчики полагались на. . .	Создаем RESTful API на Golang с Fiber golander 04.06.2025 Я перепробовал десятки фреймворков для создания RESTful API за последние годы, и когда впервые столкнулся с Fiber, понял, что это совсем другой уровень. Нет, я не собираюсь рассказывать сказки о. . .	Как работать с куки в ASP.NET Core UnmanagedCoder 04.06.2025 Когда я впервые начал работать с куки в ASP. NET Core, меня поразило, насколько отличается работа с ними от классического ASP. NET. В Core все стало более декомпозированным - больше нет удобного. . .

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	23.05.2023, 11:42 [ТС]
	Worldmaster, Хмм,а это в принципе логичное поведение.Спасибо,сейчас попробую. 0

@AzAtom Модератор 4074 / 2315 / 798 Регистрация: 15.11.2015 Сообщений: 9,167
	23.05.2023, 11:43
	Попробуй запускать проводник через CreateProcess. 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	23.05.2023, 14:23 [ТС]
	Worldmaster, Параметры командной строки?Нет,я выводил список всех переданных моей программе параметров,их вообще нет. Добавлено через 12 минут Worldmaster, Возможно,после запуска моей программы в Shell,надо менять его обратно на explorer.exe,но так не получится,потому что у пользователей нет прав на замену ключей в реестре.И к тому же,после запуска explorer'a надо будет снова в Shell ставить мою программу,что бы после перезагрузки снова она запустилась. 0