Переименовывание Опции

[Адель]

возможно ли программе преименовать свой собсвенный экзешный файл в процессе выполнения??

[Адель]

2volvo пе могбы пояснить эти строчки и как их переделать в переименование?

writeln(f, ':1');
writeln(f, format('Erase "%s"', [paramstr(0)]));
writeln(f, format('If exist "%s" Goto 1', [paramstr(0)]));
writeln(f, format('Erase "%s"', [FileName]));

2мисс_граффити у меня тоже

PS возник еще вопросик): как получить имя файла, который сейчас себя выполняет?