home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t099 / 2.ddi / TEMPFILE.WBT < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.1 KB  |  39 lines
  1. ; by Tod DeBie           1/28/92
  2. ; modified by Doug Neal  2/12/92
  3. ; 
  4. ; This batch file deletes files left in the temp directory by the install program
  5.  
  6. ErrorMode(@OFF)
  7. tvar=Environment("TEMP")
  8. if tvar == "" then tvar="c:\"   ;if no temp var then set to c: root
  9. tvar=StrTrim(tvar)
  10. tlen=StrLen(tvar)
  11. test=StrSub(tvar,tlen,1)
  12.  
  13. if test == "\" then goto DoIt    ;check of \ at end of string and add if not there
  14. tvar=StrCat(tvar,"\")
  15. :DoIt
  16. FileDelete("%tvar%install.inf")
  17. FileDelete("%tvar%instbin.exe")
  18. FileDelete("%tvar%ndwinstl.hlp")
  19. FileDelete("%tvar%ver.dll")
  20.                               ; Make sure Norton Desktop is up
  21. NDState = WinState("Norton Desktop")
  22. if NDState == @NORMAL Then Goto DoIntro
  23. if NDState == @ZOOMED Then Goto DoIntro
  24. Goto SkipIntro
  25.  
  26. :DoIntro
  27.                 ; Get the window handle for NDW
  28. hWnd = IntControl(21,"Norton Desktop~",0,0,0)
  29. if hWnd == 0 Then Goto SkipIntro
  30.                 ; Trigger Introducing screen
  31. WinActivate("Norton Desktop")
  32. IntControl(23,hWnd,273,9208,0)
  33.  
  34. :SkipIntro
  35.  
  36. loadline=IniRead("windows","load","")     ;remove from load line
  37. loadln=StrReplace(loadline,"tempfile.wbt"," ")
  38. IniWrite("windows","load",loadln)
  39.