Запуск cmd и выполнение quser

[antimus007]

Здравствуйте
Столкнулся с такой проблемой Deplhi 10.3. При запуске cmd из программы не выполняются некоторые запросы. К примеру не работает quser (ipconfig работает допустим). Хотя в обычной cmd открывается всё хорошо.

uses
ShellAPI
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0,'open','cmd','/k quser','C:\Windows\System32',SW_SHOW);
end;

Выдает ошибку:
"quser" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

Помогите пожалуйста


Проблема наблюдается на Windows 7 и 10 (может и другие)
На Windows Server 2008 R2 работает...

[antimus007]

Решение

Function Wow64DisableWow64FsRedirection(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
  External 'Kernel32.dll' Name 'Wow64DisableWow64FsRedirection';
 
procedure TForm2.Button1Click(Sender: TObject);
Var
  Wow64FsEnableRedirection: LongBool;
begin
  if Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection) then ShellExecute(0,'open','C:\Windows\System32\cmd','/k C:\Windows\System32\quser.exe','',SW_SHOW);
end;