Datei Umbenennen

[DeddyH]

Oder so (da gibt es wenigstens eine Fehlermeldung):

Delphi-Quellcode:

for I := 1 to ParamCount do
  begin
      if not MoveFile(PChar(ParamStr(i)),
                      PChar(ExtractFilePath(ParamStr(i)) + data + '.jpg')) then
        ShowMessage(SysErrorMessage(GetLastError));
  end;