home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t099 / 2.ddi / SHELL.WBT < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.6 KB  |  37 lines
  1. CurrShell=IniReadPvt("boot","shell","","system.ini")
  2. CurrShell=FileRoot(CurrShell)
  3. if CurrShell == "ndw" then Shell="Norton Desktop~"
  4. if CurrShell == "progman" then Shell="Windows Program Manager"
  5. if CurrShell == "msdos" then Shell="MS-Dos Executive"
  6. if CurrShell == "winfile" then Shell="Windows File Manager"
  7. if IsDefined(Shell) == @FALSE then Shell="unknown"
  8. y=AskYesNo("The current shell is %Shell%","Do you wish to change it?")
  9. if y==@NO then Exit
  10.  
  11. ;where=IniReadPvt("Quick Access","MainPath","","ndw.ini")
  12. ;fname=StrCatFilePath(where)
  13. ;IsThere=FileExist(StrCat(exact,"shell.wbd"))
  14. ;If IsThere == @FALSE then goto NoFile
  15. fh=FileOpen("temp.wbd","WRITE")
  16. FileWrite(fh,"[shel^1Norton Desktop]")
  17. FileWrite(fh,"[shel^2Program Manager]")
  18. FileWrite(fh,"[shel^3File Manager]")
  19. FileWrite(fh,"[shel^4MS-DOS Executive]")
  20. FileClose(fh)
  21.  
  22. DialogBox("What shell would you like to run?","temp.wbd")
  23. if Shel == 1 then IniWritePvt("boot","shell","ndw.exe","system.ini")
  24. if Shel == 2 then IniWritePvt("boot","shell","progman.exe","system.ini")
  25. if Shel == 3 then IniWritePvt("boot","shell","winfile.exe","system.ini")
  26. if Shel == 4 then IniWritePvt("boot","shell","msdos.exe","system.ini")
  27. if IniReadPvt("boot","shell","","system.ini") == CurrShell then Exit
  28. y=AskYesNo("Quit Windows","You must quit windows and restart for your currently chosen shell to load, do you wish to exit windows now?")
  29. if y == @YES then EndSession()
  30. ErrorMode(@OFF)
  31. FileDelete("temp.wbd")
  32. exit
  33.  
  34. :NoFile
  35. Message ("Error","The shell.wbd template file is not present.  Copy the file from your original disks into your NDW directory.  The file must be located in your NDW directory!")
  36. Exit
  37.