пытаюсь изменить расширение файлов в каталоге
Код:
procedure TMain.Button4Click(Sender: TObject);
begin
ShellExecute ( 0, 'open', PChar('cmd.exe', '/k ren '+pach.Text+'\*.vrd *.txt'), nil, SW_HIDE) ;
end;
вылетает ошибка: expected but ',' found
ругается на запятую PChar('cmd.exe'
, '/k ren
Посмотрите свежим взглядом где накосячил???