Страница 1 из 1

Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 07.04.2017 15:33:56
son
Доброго времени суток. Не работает данный простой код:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
AProcess: TProcess;
begin
AProcess:= TProcess.Create(nil);
AProcess.CommandLine:= 'cmd.exe';
AProcess.Parameters.Add('del D:\00_TEMP\*.txt');

AProcess.Execute;
AProcess.Free;
end;

Проверте пожалуйста, может это только на моей машине не работает?


Re: Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 07.04.2017 16:11:31
Vadim
son
Дружище! Вы позабыли написать, как Вы определили, что Ваш код не работает. ;-)
Небольшой советик:
Некоторое время назад разработчики решили, что свойство "CommandLine" лучше не использовать. Команду лучше вводить в свойство "Executable", а с параметрами команды у Вас вроде всё правильно.

Re: Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 07.04.2017 16:15:03
son
Текcтовые файлы не удаляются. Реализовал пока через TSearchRec, но это видится велосипедом, когда можно командой сделать.

Re: Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 07.04.2017 18:16:58
mig-31
Код: Выделить всё
AProcess.Parameters.Add('del');
AProcess.Parameters.Add('D:\00_TEMP\*.txt');

Re: Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 07.04.2017 18:38:38
pupsik
...но это видится велосипедом, когда можно командой сделать.
и зачем тогда вам лазарь? Можно батником сделать :mrgreen:

Re: Не получается выполнить cmd с параметрами.

СообщениеДобавлено: 11.04.2017 02:33:43
tema
надо делать так:
Код: Выделить всё
  AProcess.Executable := 'del';
  AProcess.Parameters.Add('D:\00_TEMP\*.txt');

Всё будет работать