Merestart app secara runtime

Halllooooooo… langsung saja tanpa basa-basi, ini adalah code untuk merestart aplikasi/program yang kita buat secara runtime di delphi saya dapat dari googling entah dimana lupa jejaknya, seperti apa bentuknya, okey cekidot..

ini adalah fungsinya :

1 2 3 4 5 6 7

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

Sedangkan untuk menggunakanya, tinggal panggil nama Prosedurnya

misal pada button :

1 2 3 4 5 6

. . . procedure TForm1.Button1Click(Sender: TObject); begin AppRestart; end; . . .

Selamat Mencoba, Semoga bermanfaat catatan kecil ini :)