Mega Code Archive

 

Categories / Delphi / Examples

 

How to restart the own program

Title: How to restart the own program 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;