Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск cmd и выполнение quser 
:(
    Опции темы
antimus007
Дата 15.10.2019, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.10.2019

Репутация: нет
Всего: нет



Здравствуйте
Столкнулся с такой проблемой 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 - 15.10.2019, 13:38
PM MAIL   Вверх
antimus007
Дата 19.10.2019, 23:14 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.10.2019

Репутация: нет
Всего: нет



Решение

Код

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;

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0951 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.