[M.A.D.M.A.N.]

Код:

ShellExecute ( 0, 'open', PChar('cmd.exe'), PChar('/k ren '+pach.Text+'\*.vrd *.txt'), SW_HIDE) ;