Restart کردن Application

[vDelphi]

اگه بخواهم در وسط اجرای برنامه مثلا با زدن یک دکمه برنامه ما Restart بشه یعنی همانند اینکه Application را بسته و دوباره فایل exe را اجرا کنیم چه کار باید کنم؟

[v_shalchian]

شما می تونید از کد زیر استفاده کنید :


uses ShellApi;

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