Перезапуск программы

[Михаил Юрьевич]

В программе после изменений, нужно перезпустить программу (сначало закрыть,и снова запустить).
Делаю так:

var
   FullProgPath: PChar;
 begin
   FullProgPath := PChar(Application.ExeName);
  WinExec(FullProgPath, SW_SHOW); 
  Application.Terminate;

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

[BaronTreep]

Сделайте такой обработчик OnClose:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShellExecute(0, 'open', 'run.bat', '', nil, SW_HIDE);
end;

Создайте в папке программы файл run.bat и напишите в нём:

@ImaVasheyProgrammi.exe

Прим. - "черное окошко" естественно не появляется.

[Михаил Юрьевич]

Я че то не совсем понял,у меня ни чего не изменилось,что я этим добьюсь?

[BaronTreep]

В OnClose вы запускает выполнение (скрытое) батника (рабатает cmd) и послее этого выша программа реально закрывается и мьютекс освобождается (или с помощью чего вы вторую копию смотрите). Тем временем батник (адм. средство windows) запускает вашу программу, т.к. её копии в памяти нет - она загружается.

[Михаил Юрьевич]

Программа закрывается,но почему то сама не запускается,что не так?

[BaronTreep]

Вот набросал пример. Если все положить в одну папку и откомпилировать - будет работать.

[Михаил Юрьевич]

Спасибо! буду пробовать

[mrDuke]

Обновляю exe'шник. Все проходи нормально, только после перезапуска когда закрываешь прогу удаляется exe файл. Никак не пойму почему это происходит.

if not exist "D:\$$prog.tmp" goto exit
taskkill /F /IM "prog.exe"
:try
del "D:\prog.exe"
if exist "D:\prog.exe" goto try
ren "D:\$$prog.tmp" "prog.exe"
prog.exe
:exit

[Человек_Борща]

del "D:\prog.exe"
if exist "D:\prog.exe" goto try

facepalm

[Johnson]

1. Убей себя.
2. Если останешься жив - см. пункт 1...

PS: надо бы добавить в свою подпись... )