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

[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;

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



[Vadim]

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

[son]

Текcтовые файлы не удаляются. Реализовал пока через TSearchRec, но это видится велосипедом, когда можно командой сделать.

[mig-31]

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

AProcess.Parameters.Add('del');
AProcess.Parameters.Add('D:\00_TEMP\*.txt');


[pupsik]

...но это видится велосипедом, когда можно командой сделать.

и зачем тогда вам лазарь? Можно батником сделать

[tema]

надо делать так:

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

  AProcess.Executable := 'del';
  AProcess.Parameters.Add('D:\00_TEMP\*.txt');

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