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

[Адель]

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

[мисс_граффити]

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

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

[Malice]

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

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

[volvo]

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

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

[мисс_граффити]

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

[Адель]

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

[мисс_граффити]

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

[Адель]

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

[Malice]

работает

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

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

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

Сообщение отредактировано: Malice - 13.04.2007 14:37

[мисс_граффити]

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

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

на

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

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

[Адель]

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

по handl'у окна определять процесс

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

[мисс_граффити]

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

[Адель]

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