home *** CD-ROM | disk | FTP | other *** search
/ Clickx 148 / Clickx_Magazine_148_Coverdisc_cd5.iso / pc / Yucom / intro.dxr / Scripts_3_CollectReg.ls < prev    next >
Encoding:
Text File  |  1999-11-03  |  816 b   |  25 lines
  1. global gTempDir, gharddisk
  2.  
  3. on CollectReg
  4.   put EMPTY into member "BTJVreg"
  5.   if the platform contains "macintosh" then
  6.     nothing()
  7.   else
  8.     TemporaryInternetFiles = baReadRegString("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache", "Error", "HKEY_CURRENT_USER")
  9.     tempdir = gharddisk & "program files\yucom\temp"
  10.     baCreateFolder(tempdir)
  11.     baCopyXFiles(TemporaryInternetFiles, tempdir, "*.yucom.be.txt ", "IfNewer")
  12.     FileCookie = baFindFirstFile(TemporaryInternetFiles, "*crossroads.be.txt")
  13.     baFindClose()
  14.     importFileInto(member(500, "texts"), FileCookie)
  15.     put member(500, "texts").text
  16.     baXDelete(tempdir, "*.*")
  17.     baDeleteFolder(tempdir)
  18.   end if
  19.   if member(5, "Texts") contains "YucomRegistered" then
  20.     go("RegOK")
  21.   else
  22.     go("RegNotOK")
  23.   end if
  24. end
  25.