Redémarrer automatiquement une application
Redémarrer automatiquement une application.
L’idée : lancer une nouvelle instance du programme, attendre un court délai, puis fermer proprement l’instance actuelle.
procedure TForm1.Button1Click(Sender: TObject);
begin
TThread.CreateAnonymousThread(
procedure
begin
Sleep(500); // Attendre un peu avant de relancer
ShellExecute(0, 'open', PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
end
).Start;
TThread.Queue(nil,
procedure
begin
Application.Terminate;
end
);
end;Un petit clic (J'aime) qui fait plaisir !
