Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 15.10.2019, 16:00   #1
antimus007
Новичок
Джуниор
 
Регистрация: 11.12.2015
Сообщений: 2
По умолчанию Запуск cmd и выполнение quser

Здравствуйте
Столкнулся с такой проблемой 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 вне форума   Ответить с цитированием
Старый 20.10.2019, 00:16   #2
antimus007
Новичок
Джуниор
 
Регистрация: 11.12.2015
Сообщений: 2
По умолчанию

Решение

Код:
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;
antimus007 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Sleep останавливает выполнение всего в программе а не задерживает выполнение конкретного куска кода? Illusiony Общие вопросы Delphi 19 22.02.2015 19:37
Запуск файла на выполнение apeorin Общие вопросы C/C++ 9 25.11.2012 14:12
Выполнение CGI prizrak1390 Работа с сетью в Delphi 10 23.02.2009 22:01
Запуск программы на выполнение из другой программы. ViNcHeStEr Паскаль, Turbo Pascal, PascalABC.NET 6 18.06.2008 14:33
Не работает запуск на выполнение (F9) DeN1308 Общие вопросы Delphi 9 30.10.2007 18:34


06:41.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.