Scrip Cara Me-Restart Program yang sedang berjalan

Scrip Cara Me-Restart Program yang sedang berjalan - Terkadang pada saat tertentu, kita ingin program yang kita bikin me-restart dirinya (Tanpa Harus keluar dari aplikasi program yang kita buat), 

procedure TForm1.Button1Click(Sender: TObject); 

var

NamaProgram: PChar; 

begin

NamaProgram:= PChar(Application.ExeName); 

WinExec(NamaProgram, SW_SHOW); 

Application.Terminate; 

end;

mudah2an bermanfaat

Tweet