Redemarrer son application

procedure RestartProgram;
var
FullPrgmPath: PChar;
begin
FullPrgmPath := PChar(Application.ExeName);
WinExec(FullPrgmPath, SW_SHOWMAXIMIZED);
Application.Terminate;
end;