Nope
Zitat:
writeln ('Data = '+data);
writeln('');
writeln('');
writeln ('ParamStr = '+ParamStr(i));
writeln ('Ausgabedatei = '+data + '.jpg' );
writeln('');
writeln('');
writeln('Ergebnis :');
if not RenameFile(PChar(ParamStr(i)),
PChar(ExtractFilePath(ParamStr(i)) + data + '.jpg')) then
ShowMessage(SysErrorMessage(GetLastError));