procedure TForm3.Timer3Timer(Sender: TObject);
begin try
timer3.Enabled := false;
form1.pkzip1.AddFiles('*.*',faReadOnly+faHidden+faSysFile+faDirectory+faArchive+faAnyFile);
form1.pkzip1.Save;
form1.pkzip1.CloseArchive;
form1.stub1.StubExe := form1.compile_path(form1.get_ini_params('system','wikistub'));
try
 if form1.stub1.Execute then MessageBox(0,'WikiResearch Deployment Executable file created successfully ! ',PChar(Application.Title),MB_OK+MB_ICONINFORMATION)
 else MessageBox(0,'Error occurred while creating WikiResearch Deployment Executable file !',PChar(Application.Title),MB_OK+MB_ICONHAND);
except end;
Close;
except end;End;