home *** CD-ROM | disk | FTP | other *** search
/ M.I.L.K. with Freshness / MILK1st.iso / SM_IN.DXR / 00053.ls < prev    next >
Encoding:
Text File  |  2001-11-26  |  1.9 KB  |  39 lines
  1. on exitFrame
  2.   the itemDelimiter = "\"
  3.   myexename = "Album1.exe"
  4.   myexename2 = "milk1st.exe"
  5.   myshortcutname = "M.I.L.K. 1st Player"
  6.   myshortcutname2 = "M.I.L.K. 1st Bonus Data"
  7.   mypmgroupname = "MILK"
  8.   mypmiconname = "BMicon.ico"
  9.   mypmiconname2 = "milkicon.ico"
  10.   mypmiconname3 = "milkun.ico"
  11.   myfoldername = "MILK"
  12.   uninstallname = "uninstall.exe"
  13.   myunshortcutname = "M.I.L.K. 1st Uninstall"
  14.   myosdirectory = getosdirectory()
  15.   myuserdocfolder = item 1 of myosdirectory
  16.   gmydrive = the moviePath
  17.   gplayerdir = "c:\MILK\milk1st\"
  18.   myiconfilecopy = bacopyfile(the moviePath & mypmiconname, "c:\MILK\milk1st\" & mypmiconname, "Always")
  19.   myiconfilecopy2 = bacopyfile(the moviePath & mypmiconname2, "c:\MILK\milk1st\" & mypmiconname2, "Always")
  20.   myiconfilecopy3 = bacopyfile(the moviePath & mypmiconname3, "c:\MILK\milk1st\" & mypmiconname3, "Always")
  21.   pmgroup = bacreatepmgroup(mypmgroupname)
  22.   mydirectory = myuserdocfolder & "\winnt"
  23.   case myosdirectory of
  24.     mydirectory:
  25.       createmyfolder = bacreatefolder("c:\" & myfoldername & "\milk1st")
  26.       pmicon = bacreatepmicon(gmydrive & myexename, myshortcutname, "c:\MILK\milk1st\milkicon.ico", 0)
  27.       pmicon2 = bacreatepmicon(gmydrive & myexename2, myshortcutname2, "c:\MILK\milk1st\BMicon.ico", 0)
  28.       pmicon3 = bacreatepmicon(gmydrive & uninstallname, myunshortcutname, "c:\MILK\milk1st\milkun.ico", 0)
  29.     otherwise:
  30.       createmyfolder = bacreatefolder("c:\" & myfoldername & "\milk1st")
  31.       pmicon = bacreatepmicon(gmydrive & myexename, myshortcutname, "c:\MILK\milk1st\milkicon.ico", 0)
  32.       pmicon2 = bacreatepmicon(gmydrive & myexename2, myshortcutname2, "c:\MILK\milk1st\BMicon.ico", 0)
  33.       pmicon3 = bacreatepmicon(gmydrive & uninstallname, myunshortcutname, "c:\MILK\milk1st\milkun.ico", 0)
  34.       ok = bawindowtofront(bawinhandle())
  35.       ok = baactivatewindow(bawinhandle())
  36.   end case
  37.   go(#next)
  38. end
  39.