[Dead_Gigabit]

пытаюсь изменить расширение файлов в каталоге

Код:

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

Посмотрите свежим взглядом где накосячил???

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

Код:

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

[lmikle]

Маньяки!!!

Код:

var
  OldFileName : String;
  NewFileName : String;
begin
  OldFileName := 'file.old';
  NewFileName := ChangeFileExt(OldFileName,'.new');
  RenameFile(OldFileName,NewFileName);

[angvelem]

С использованием WinAPI:

Код:

MoveFileEx(PChar(OldName), PChar(NewName), MOVEFILE_COPY_ALLOWED);
или
MoveFileEx(PChar(OldName), PChar(NewName), MOVEFILE_REPLACE_EXISTING);

[lmikle]

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

С использованием WinAPI:

Код:

MoveFileEx(PChar(OldName), PChar(NewName), MOVEFILE_COPY_ALLOWED);
или
MoveFileEx(PChar(OldName), PChar(NewName), MOVEFILE_REPLACE_EXISTING);

тогда уж

Код:

MoveFileEx(PChar(OldName), PChar(NewName), MOVEFILE_COPY_ALLOWED Or MOVEFILE_REPLACE_EXISTING);

[angvelem]

Варианты флагов пусть уж сам выбирает, я поэтому и показал их раздельно.