0

В таком варианте ничего не происходит, как это правильно сделать подскажите, пожалуйста?

     system(' @echo ');
     system(' P: ');
     system(' cd P:\A\ ');
     system(' rar.exe a -o+ -r P:\2.rar *.* ');

Надо код батника переделать в код delphi. Спасибо.

2
  • 2
    Сохраните текст батника в файл, выполните батник WinExec-ом, удалите батник.
    – Nofate
    4 мая 2012 в 13:51
  • > WinExec Вы очень любите ретро? ;-)
    – karmadro4
    4 мая 2012 в 17:53

1 ответ 1

2
  1. Создать текстовый файл shell.cmd
  2. Запустить его из тела программы вызовом ShellExecute, WinExec, CreateProcess.

Пример:

ShellExecute(0, nil, 'cmd.exe', '/C cd C:\shell.cmd', nil, WS_HIDE);
3
  • а без вызова cmd или bat никак нельзя?
    – Malus
    7 мая 2012 в 11:27
  • Смотрите CreateProcess
    – alexlz
    7 мая 2012 в 12:42
  • ShellExecute(0,'open','E:\...\Apt.bat',nil,nil,1); сделал так и не морочусь)
    – Malus
    7 мая 2012 в 13:09

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.