Команды Cmd в консоли Delphi

[Serge_Bliznykov]

Сообщение от TEKTON

Что за чудный ключ "/C"?

https://ab57.ru/cmdlist/cmd.html

/C Выполнение указанной команды (строки) с последующим завершением.
/K Выполнение указанной команды (строки) без последующего завершения

/C - выполнить команду и завершить работу командного интерпретатора
/K - выполнить команду и оставить командный интерпретатор запущенным.

а вообще, рекомендую ручками из командной строки запустить CMD /? и почитать.
этот текст именно оттуда

p.s. А Вам зачем все эти извращения с запуском cmd.exe?

[Black Fregat]

Сообщение от TEKTON

Что за чудный ключ "/C"?
Откуда он берётся?
Для чего ?

Чтобы показать наличие в строке команды используется ключ /C
Примерно так:

cmd.exe /C del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*

Собственно, уже и готовый пример выложили

[TEKTON]

Спасибо.

Сообщение от Serge_Bliznykov

... А Вам зачем все эти извращения с запуском cmd.exe?

Конечно можно просто батник написать и всё
Но интересно всё таки и с консолью разобраться (функционал помощнее будет чем у батника).
Хотя в делфях, функции которые очень просто реализуются в Cmd, порой приобретают довольно маштабные коды.
Не раз встречал функции чуть ли не на страницу расписанные, а в Cmd это делается в одну команду.

За пример спасибо.
Работает!
В нете очень много "мусора" про ShellExecute.
В основном аля: "А давайте запустим блокнот в скрытом режиме"...

"Вишенку" посмотрел.
Оснавная мысль там что,
ShellExecute и WinExec устарели.
Типо для них надо писать отдельные обработчики ошибок...
Надо вдумчиво потом перечитать, как время появится.
З.Ы.
Может подкините толковых ссылок по работе с консолью.
Хочу типо простенького скриптового движка сделать.
То-есть, пишется некий скрипт, потом запускается консольный exe который выполняет этот скрипт.
Копирование удаление файлов, папок, ключей реестра, запуск и "убийство" процессов...

[Serge_Bliznykov]

Сообщение от TEKTON

Хочу типо простенького скриптового движка сделать.

на мой взгляд - не очень полезно и перспективно.

ибо есть cmd (Вы даже не представляете, что там можно сделать знаючи),
есть VBScript, есть PowerShell
не уверен, что у Вас есть задачи, которые потребуют ещё один движок.

Но, впрочем, хозяин — барин!
Хотите порадовать себя любимого - напишите себе свой движок, который будет работать так, как это нужно Вам.

[TEKTON]

Сообщение от Serge_Bliznykov

на мой взгляд - не очень полезно и перспективно.

ибо есть cmd (Вы даже не представляете, что там можно сделать знаючи),
есть VBScript, есть PowerShell
не уверен, что у Вас есть задачи, которые потребуют ещё один движок.

Но, впрочем, хозяин — барин!
Хотите порадовать себя любимого - напишите себе свой движок, который будет работать так, как это нужно Вам.

Может неправильно выразился
Короче, движок хочу использовать в качестве лаунчера, для файлов (не моих, сторонних).
Например программе требуется определённый ключ в реестре для работы.
Надо что б движок-лаунчер считывал прописанный ключ из скрипта, потом вносил в реестр, после этого запускал программу, дожидался её завершения, считывал и записывал ключ назад (вытягивал из реестра).
То же и с файлами настроек в ApData... и т.д.
Тип такой идеи.
Можно конечно через Cmd всё организовать, штука действительно сильная, но там есть определённые минусы.
Запуск в скрытом режиме..., иконку нельзя зацепить... и т.д.
Спасиб ребят за помощь
Теперь я стал более просвещённым/Посвящённым :D

[Serge_Bliznykov]

Сообщение от TEKTON

Спасиб ребят за помощь
Теперь я стал более просвещённым/Посвящённым :D

Пожалуйста.
Успехов.

[AppData]

а как бы сделать список команд? через Delphi

@copy Questions.VAL "C:\Информационная безопасность"
@copy Questions.PX "C:\Информационная безопасность"
@copy Questions.DB "C:\Информационная безопасность"
@copy Variants.DB "C:\Информационная безопасность"
@copy Variants.PX "C:\Информационная безопасность"
@copy Variants.XG0 "C:\Информационная безопасность"
@copy Variants.YG0 "C:\Информационная безопасность"


@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CodePage /t REG_DWORD /d 1251 /f>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 0x0000036 /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 0x000c0000 /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 0x0000190 /f>>c:\info.txt
@ping -n 3 localhost>>c:\info.txt
call qwer2.exe

[FaTaL]

Сообщение от AppData

а как бы сделать список команд? через Delphi

@copy Questions.VAL "C:\Информационная безопасность"
@copy Questions.PX "C:\Информационная безопасность"
@copy Questions.DB "C:\Информационная безопасность"
@copy Variants.DB "C:\Информационная безопасность"
@copy Variants.PX "C:\Информационная безопасность"
@copy Variants.XG0 "C:\Информационная безопасность"
@copy Variants.YG0 "C:\Информационная безопасность"


@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CodePage /t REG_DWORD /d 1251 /f>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 0x0000036 /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 0x000c0000 /f>>c:\info.txt
@reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 0x0000190 /f>>c:\info.txt
@ping -n 3 localhost>>c:\info.txt
call qwer2.exe

CopyFile и TRegistry Вам в помощь.