Как создать кнопку рестарт?

[soniag]

Всем добрых времени суток!
Какую команду надо прописать на кнопке , чтобы программа закрывалась и сама запускалась?

[Pein95]

ну как вариант создать бат файл, который сначало будет убивать программу а потом запускать.

[soniag]

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

ну как вариант создать бат файл, который сначало будет убивать программу а потом запускать.

Можно поподробней, пока не очень разбираюсь, заранее спасибо!

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

procedure TForm1.Button1Click(Sender: TObject);
 var
   FullProgPath: PChar;
 begin
   FullProgPath := PChar(Application.ExeName);
   // ShowWindow(Form1.handle,SW_HIDE); 
  WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function 
  Application.Terminate; // or: Close; 
end;

[soniag]

Михаил Юрьевич, спасибо работает!