Команды CMD (консоли, командной строки Windows) в Delphi

 
0
 

Может кто уже сталкивался или просто хорошо имеет знания по Delphi или CMD (консоль, командная строка Windows). Вопрос в следущем. Насколько я знаю, для передачи команд в CMD (консоле, командной строке Windows) с использованием Delphi имеется оператор (функция)
    

WinExec(PAnsiChar('cmd /c md f:\t'), SW_HIDE);

Простые команды типа вышеописанной проходят на ура. Даже несколько команд выполняются отлично (
WinExec(PAnsiChar('cmd /c md f:\t&md f:\t1'), SW_HIDE);
)

Так вот данный оператор (функция) не дает никаких результатоы при использовании более сложных команд, в моем случае циклы. У меня имеется команда, которая выводит имя подключенного сетевого интерфейса. Для этого я использую двойной цикл:


FOR /F "usebackq skip=3 delims=" %%a IN (`netsh interface show interface`) DO (FOR /F "tokens=3* delims= " %%b IN (^"%%a^") DO (echo %%c)


сама команда Delphi выглядит так


WinExec(PAnsiChar('cmd /c FOR /F "usebackq skip=3 delims=" %%a IN (`netsh interface show interface`) DO (FOR /F "tokens=3* delims= " %%b IN (^"%%a^") DO (echo %%c)'), SW_HIDE);


Данная команда отказывается выполняться. Проскакивает черное окно CMD (консоли, командной строки Windows) и все. Пробовал с дописанием команды Pause чтобы окно не закрывалось, но без результатно

Просьба помочь

изменён 15:57, 08.08.2016
ava 
задан 14:31, 08.08.2016
ava 

Ответы (0)
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить