Перезапуск приложения под Windows

[Валерий М.]

Форумчане, всем доброго дня, хотел узнать можно ли в FMX как-нибудь сделать перезапуск приложения при нажатии на кнопку? Если можно то как это реализовать, подкиньте информации почитать или идею, Delphi 10 upd 1. В моём понимании перезапустить - это убить старую и открыть новую.

[Rusland]

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Изменено 4 марта, 2016 пользователем Rusland

[Валерий М.]

Спасибо большое! 

[Vitaldj]

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

[Andy]

 

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

 

 

В этом случае придется писать службу которая будет отвечать за перезапуск приложения или писать скрипты (или *.bat)...

[#WAMACO]

 

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

 

что то я не понял, а причем тут монопольный доступ к бд?

[Vitaldj]

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

что то я не понял, а причем тут монопольный доступ к бд?

Да очень просто, как вы запустите вторую копию программы, которая уже имеет коннект к бд при настройке этой бд в монопольном режиме? Ведь код сначала запускает копию программы, а потом только закрывает)

[Vitaldj]

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

 

В этом случае придется писать службу которая будет отвечать за перезапуск приложения или писать скрипты (или *.bat)...

Есть более простой способ (использую более 10 лет)): держать еще один exe файл в этой же директории, которому передают управление, а он в свою очередь заново запускает основное приложение. При этом, второй файл еще может выполнять дополнительные функции (обновление бд и тд)...

[#WAMACO]

 

 

 

Вот так

uses Winapi.ShellAPI, Winapi.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: String;
begin
  FullProgPath:='C:\Temp\1.exe'; // полный путь к exe
  ShellExecute(0, PChar('open'), PChar(FullProgPath), PChar(''), PChar(ExtractFilePath(FullProgPath)),
    SW_SHOWNORMAL);
  Application.Terminate;
end;

Насколько я понимаю, это не сработает, если запрещен запуск второй версии приложения и/или настроен монопольный доступ к бд (то есть только 1 коннект).

что то я не понял, а причем тут монопольный доступ к бд?

Да очень просто, как вы запустите вторую копию программы, которая уже имеет коннект к бд при настройке этой бд в монопольном режиме? Ведь код сначала запускает копию программы, а потом только закрывает)

 

ну дык сначала проверка при запуске на перезапуск, а потом на возможность подключиться монопольно!

я как то так представлял!