Показать сообщение отдельно
  #9  
Старый 25.08.2016, 23:49
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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

Код:
program Project1;

...

function IsUpdateAvailable : Boolean;
begin
...
end;

procedure UpdateProgram;
begin
...
end;

begin
  if IsUpdateAvailabe Then
  begin
    UpdateProgram;
    WinExec(ParamStr(0),SW_SHOWNORMAL);
    Halt(0);
  end;

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.
Ответить с цитированием