Implementing Application.Restart

~~~~~~~~~~~~~~~~~~~~~~~~~
uses ShellApi;

procedure AppRestart;
var AppName : PChar;
begin
  AppName := PChar(Application.ExeName) ;
  ShellExecute(Handle,'open', AppName, nil, nil, SW_SHOWNORMAL) ;
  Application.Terminate;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» How to set system wide Hot Key for a Delphi application
« Activate/Deactivate the Screen Saver

• 1
• 2
• 3
• 4
• 5