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

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
Ну и т.д.

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

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

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.