Программный перезапуск приложения Delphi

Возможно, вам следует мыслить нестандартно. Вместо того, чтобы возиться с логикой мьютекса / экземпляра, вы можете просто создать другой исполняемый файл, который ожидает закрытия вашего приложения, а затем снова запускает его. В качестве дополнительного бонуса вы можете позже использовать этот механизм, например, для обновления некоторых двоичных файлов вашего основного приложения. Также гораздо проще запускать его с повышенными правами вместо поддержания разных уровней целостности внутри одного и того же приложения и т. Д.

Почему нельзя просто отпустить мьютекс перед попыткой перезапуска? Если по какой-то случайности другой экземпляр запускается перед тем, который вы явно вызываете с перезапуском, который не имеет значения, ваше приложение все равно будет запущено и снова запустится с любыми внесенными изменениями, которые потребовали перезапуска. Я не думаю, что вам нужна сложность других решений.

Включите в свой ShellExecute какой-нибудь параметр, например / WaitForShutDown, и создайте еще один мьютекс. В вашей программе перед инициализацией, например, в ее файле .dpr вставьте что-то вроде:

if (Pos ('/ WaitForShutDown', CmdLine) ‹> 0) then WaitForSingleObject (ShutDownMutexHandle, INFINITE);

Кроме того, в свою программу после всех доработок и выпуска общих ресурсов включите что-то вроде

ReleaseMutex (ShutDownMutexHandle);

ИЗМЕНИТЬ ...

В ПОРЯДКЕ. Теперь я верю, что знаю, в чем ваша проблема ... У вас проблемы с доработкой программных модулей!

Попробуйте добавить в программный раздел как первый модуль мой нижний модуль RestartMutex.

program MyProgramName;  
uses
  Mutex,
  Forms,
...

;

unit RestartMutex;
interface

var
  Restart: boolean = false;

implementation

uses
  windows,
  ShellApi;

var
  MutexHandle: cardinal;
  AppName: PChar;
const
  ID = 'MyProgram';

initialization
  MutexHandle := CreateMutex (nil, False, PChar (ID));
  if (GetLastError = ERROR_ALREADY_EXISTS) then
    Halt;

finalization
  ReleaseMutex(MutexHandle);
  if Restart then
  begin
    AppName := PChar('MyProgramName.exe') ;
    ShellExecute(0,'open', AppName, nil, nil, SW_SHOWNORMAL) ;
  end: 
end.

Если вы хотите перезапустить приложение, просто установите для переменной Restart значение true, а затем закройте приложение.

Итак, поскольку RestartMutex добавлен первым в разделе программы, это будет означать, что завершение модуля RestartMutex будет выполнено почти в конце закрытия приложения, а все остальные модули будут выполнять завершение перед модулем RestartMutex, что означает, что приложение может снова запуститься безопасно!

Вы можете передать аргумент командной строки, например «перезапуск», и запустить Sleep (), прежде чем пытаться получить мьютекс или попытаться получить мьютекс в цикле, который некоторое время находится в спящем режиме.

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

привет, прочтите следующую статью Зарко Гаджича - там вы получить несколько идей, образец кода и даже целый компонент для использования.

hth, райнхард

Ваш ReleaseMutex, вероятно, не работает, поскольку вы 'передаете' False 'для' bInitialOwner 'при вызове CreateMutex. Либо имеете первоначальное право собственности на мьютекс, либо звоните CloseHandle вместо ReleaseMutex, передавая ваш дескриптор мьютекса.

оформить заказ таким образом:

Просто запускает новое приложение и закрывает текущее;

http://www.delphitricks.com/source-code/windows/restart_the_own_program.html

(побеждая идею сна)

если вы хотите убедиться, что исходный процесс действительно завершен / закрыт, прежде чем вы создадите мьютекс, то одна из идей - передать PID новому процессу (командная строка является самой простой, любой другой метод IPC также работает), затем используйте OpenProcess (SYNCHRONIZE, false, pid) и WaitForSingleObject (я бы использовал цикл с тайм-аутом (100 мс - хорошее значение) и действовал бы соответствующим образом, если исходный процесс закрывается слишком долго)

В конце концов, помимо вышесказанного, я также создал процедуру RestartSelf в том же модуле с мьютексом и реализовал там логику, чтобы сохранить единственный экземпляр и логику перезапуска в одном месте (параметр жестко закодирован , вы не хотите, чтобы жестко запрограммированный материал был разбросан по вашим приложениям.