home *** CD-ROM | disk | FTP | other *** search
/ VIPER Paradice / VIPER.ISO / pc / SETUP.EXE / SETUP.DXR / 00016_unistall.ls < prev    next >
Encoding:
Text File  |  2002-06-30  |  426 b   |  18 lines
  1. on unistall
  2.   Answer = bamsgbox("Uninstall the game?", "LOVE LOVE SHOW!", "YesNo", "noicon", 1)
  3.   if Answer = "Yes" then
  4.     disinstalla()
  5.   else
  6.     go(1)
  7.   end if
  8. end
  9.  
  10. on disinstalla
  11.   unistalla = bareadregstring("love love", "path", "error", "HKEY_CURRENT_USER")
  12.   fxObj = xtra("FileXtra3").new()
  13.   put fxObj.fx_folderdelete(unistalla, 1)
  14.   fxObj = 0
  15.   ok = badeletereg("love love", EMPTY, "HKEY_CURRENT_USER")
  16.   go(1)
  17. end
  18.