~~~~~~~~~~~~~~~~~~~~~~~~~
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
