...restart the own program?

Author: Paul Ericksen

Category: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base