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

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('Project1.exe') then
  RenameFile('Project1.exe','2.exe');
end;

Так конечно не получится, т.к. файл залочен в этот момент и штатными средствами сделать это не просто

ДРКБ -> Работа с файловой системой -> Файловые операции (копирование, удаление, ...) -> Как удалить файл из самого себя?

Переименовать можно по тому же принципу... Кстати в статье популярно объясняется, почему нельзя переименовать файл напрямую

У меня работает, иначе бы не стала выкладывать.

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 возник еще вопросик): как получить имя файла, который сейчас себя выполняет?

У тебя тоже - что? Работает или не работает? А то в сочетании с этим смайлом непонятно...

работает
глупо, что сама не попробовала)

Я похоже с удалением перепутал, сорри


Я так понимаю имя файла до переименования или после ?

я так понимаю, что ты хочешь заменить

 RenameFile('Project1.exe','2.exe');

на

 RenameFile(<определенное имя>,<новое имя>);

Ничего умнее, чем по handl'у окна определять процесс, я не придумала.
Но, наверное, должен быть более простой способ.

хочется, чтоб он сам себя переименовал, получив в качестве первого параметра свое имя) ..

снасчала тож так подумала, но handl дает имя формы, а не имя проекта

посмотри вот здесь:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=50760

мисс_граффити спасиб) то,что нужно