Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Запуск cmd и выполнение quser

Автор: antimus007 15.10.2019, 12:52

Здравствуйте
Столкнулся с такой проблемой 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 19.10.2019, 23:14

Решение

Код


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;