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

[TEKTON]

Приветствую.
Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec

А как выполнять другие команды cmd с параметрами?
Например:

del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR  Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.

Если можно конкретные примеры.
Спасибо.

[Serge_Bliznykov]

https://stackoverflow.com/questions/...gram-in-delphi

если команда командного интерпретатора (см. CMD /?) тогда нужно указывать cmd.exe

var sparam : string;
begin
  sparam := '/K ping 127.0.0.1';
  ShellExecute(Handle, nil, 'cmd.exe', PChar(sparam), nil, SW_SHOW);

а если это отдельный exe-шник (см. attrib.exe)
тогда можно так:

sparam := '-R-A-S-H C:\folder /D';
  ShellExecute(Handle, nil, 'attrib', PChar(sparam), nil, SW_SHOW);

[TEKTON]

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

var sparam : string;
begin
sparam := '/K ping 127.0.0.1';
ShellExecute(Handle, nil, 'cmd.exe', PChar(sparam), nil, SW_SHOW);

Тут всё ясно.
А вот куда прописываются именно комманды
copy,
del,
XCOPY ?
Если по шаблону делать, то так получается?

sparam := 'del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*';
  ShellExecute(Handle, nil, 'cmd.exe', PChar(sparam), nil, SW_SHOW);

Или как ?

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

...
а если это отдельный exe-шник (см. attrib.exe)
тогда можно так:

sparam := '-R-A-S-H C:\folder /D';
  ShellExecute(Handle, nil, 'attrib', PChar(sparam), nil, SW_SHOW);

Тут немного не понял.

ATTRIB -R-A-S-H C:\folder /D

Это ж тоже комманда через cmd.exe выполняется.

[Serge_Bliznykov]

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

Если по шаблону делать, то так получается?

sparam := 'del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*';
  ShellExecute(Handle, nil, 'cmd.exe', PChar(sparam), nil, SW_SHOW);

да, вроде бы так.
А что - не работает? Или папку temp не чистит?

NB. получить список файлов и удалять файлы можно нативными командами Delphi

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

Тут немного не понял.

ATTRIB -R-A-S-H C:\folder /D

Это ж тоже комманда через cmd.exe выполняется.

Так то оно так, но не совсем.
Дело в том, есть такой EXEшник в Windows:

 Содержимое папки C:\Windows\System32

14.07.2009  04:38            18*432 attrib.exe

поэтому можно использовать эту команду БЕЗ cmd.exe

ShellExecute(Handle, nil, 'attrib', '-R-A-S-H C:\folder /D', nil, SW_SHOW);

но, кстати, скорее и через cmd.exe тоже запуск отработает без проблем.

И не вижу не одной причины, по которой Вы не можете запустить эти команды в Delphi
и проверить, как это работает.
И работает ли вообще.

[TEKTON]

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

..
И не вижу не одной причины, по которой Вы не можете запустить эти команды в Delphi
и проверить, как это работает.
И работает ли вообще.

Не добрался ещё
Доберуся, буду пробовать.
Надеюсь всё будет работать
Спасибо!

[TEKTON]

Ерунда какая то

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, ShellApi;
var
  sparam:string;
 Code:integer;
begin
 sparam := 'del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*';
// Code:=ShellExecute(Handle, nil, 'cmd.exe', PChar(sparam), nil, SW_SHOW);
 Code:=ShellExecute(0, nil, 'cmd.exe', PChar(sparam), nil, 0);
 Writeln(Inttostr(Code));
 ReadLn;
end.

Стал ругаться на "Handle" и "SW_SHOW".
Заменяю нулями, компилится.
Но не работает!
При выполнении в консоли появляется число 42
И на этом всё.
Пробовал и копирование и другие команды...
Не пашет!

[Black Fregat]

Для cmd.exe не так команды задаются. Через ключ /C

[Serge_Bliznykov]

Сообщение от Black Fregat

Для cmd.exe не так команды задаются. Через ключ /C

Ага, Вы правы, точно так.

и по ссылке, которую я приводил выше https://stackoverflow.com/questions/...gram-in-delphi полно примеров.

[Serge_Bliznykov]

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

Стал ругаться на "Handle" и "SW_SHOW".

Handle у Вас отстуствует, потому как проект консольный.
И тут можно использовать ноль.

а вот SW_SHOW заменили не корректно.
Да и не нужно было заменять, достаточно было просто дописать в uses модуль Windows

program ClearLocalTemp;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, ShellApi;
var
 sparam:string;
 Code:integer;
begin
 sparam := '/C del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*';
 Code:=ShellExecute(0, nil, 'CMD.EXE ', PChar(sparam), nil, SW_SHOW);
 Writeln('Exit code = '+Inttostr(Code));
 ReadLn;
end.

p.s. 42 - это код нормально завершения.

p.p.s. "вишенка" на торте - ознакомьтесь со статьёй GunSmoker'а
Почему вам (никогда) не следует использовать ShellExecute и WinExec

[TEKTON]

Сообщение от Black Fregat

Для cmd.exe не так команды задаются. Через ключ /C

Рад за Вас господа, что Вы это знаете
Но хотелось бы и за себя порадоваться, когда и я это узнаю (если узнаю ).
Но это будет не скоро, т.к. все намёками, да иносказаниями...
Что за чудный ключ "/C"?
Откуда он берётся?
Для чего ?

Пока печатал, ешё пост добавился

Пошёл лакомиться "вишенкой" на торте
Надеюсь она будет не кислой.