На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Запуск cmd и выполнение quser
    Здравствуйте
    Столкнулся с такой проблемой Deplhi 10.3. При запуске cmd из программы не выполняются некоторые запросы. К примеру не работает quser (ipconfig работает допустим). Хотя в обычной cmd открывается всё хорошо.

    ExpandedWrap disabled
      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 -
      Как запустить C:\Windows\System32\osk.exe x64 из под 32-битного приложения?

      ExpandedWrap disabled
        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;


      У тебя твой код запускает экземпляр 64 битного эмулятора cmd
      https://yadi.sk/i/_dgirEHbTre_uA
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0241 ]   [ 16 queries used ]   [ Generated: 28.03.24, 09:50 GMT ]