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

[Евгений_Магистр]

Доброго времени суток, господа программисты! Мне необходимо перезапустить программу. Использую такой код (нашел в инете).

procedure TfrmMain.N11Click(Sender: TObject);
var
progPath: string;
namePath: string;
resultnameprogPath: string;

 begin
   progPath:=ExtractFilePath(application.exename);
   namePath:= ExtractFileName(application.exename);
   resultnameprogPath:= progPath+namePath;

  WinExec('resultnameprogPath', SW_SHOW); 
  Application.Terminate;

Перезапуск не происходит, программа тупо закрывается и всё.

Вот такой код у меня срабатывает, как надо:

  WinExec('C:\Test\Test.exe', SW_SHOW); 
  Application.Terminate;

Чтобы убедиться, что у меня получился правильный путь, я выводил переменную resultnameprogPath в Edit. Тут всё четко. Подскажите пожалуйста, в чем может быть причина?

[ReportCube]

А зачем 'resultnameprogPath' в кавычках?

[Евгений_Магистр]

Сообщение от ReportCube

А зачем 'resultnameprogPath' в кавычках?

А иначе он встает на этом месте и пишет: [DCC Error] MainFrm.pas(306): E2010 Incompatible types: 'string' and 'PAnsiChar'

[ReportCube]

Так и напишите (PAnsiChar(resultnameprogPath),...

[Евгений_Магистр]

Сообщение от ReportCube

Так и напишите (PAnsiChar(resultnameprogPath),...

var
progPath: string;
namePath: string;
resultnameprogPath: string;

 begin
   progPath:=ExtractFilePath(application.exename);
   namePath:= ExtractFileName(application.exename);
   resultnameprogPath:= progPath+namePath;

  WinExec(PAnsiChar(resultnameprogPath), SW_SHOW);
  Application.Terminate;

Вот так у меня сейчас, но программа не перезапускается, а просто закрывается.

[ReportCube]

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

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
      ShellExecute(0, 'Open', PWideChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
      Close;
end;

[Евгений_Магистр]

Сообщение от ReportCube

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

Спасибо большое! Всё работает!

[s-andriano]

А какой вообще смысл в перезапуске программы?
IMHO идеи о перезапуске могут появиться только в результате ошибок проектирования.
Следовательно, нужно не бороться с симптомами, а устранять причину.

[Евгений_Магистр]

Сообщение от s-andriano

А какой вообще смысл в перезапуске программы?
IMHO идеи о перезапуске могут появиться только в результате ошибок проектирования.
Следовательно, нужно не бороться с симптомами, а устранять причину.

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

[ReportCube]

Явная бага или недоработка, для отрисовки перезапускать приложение? Интересный способ