home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Software / TemaCD / ahwb / rwsetup.bat < prev    next >
DOS Batch File  |  2000-06-12  |  10KB  |  326 lines
  1. @echo off
  2. rem ***********************************************************************
  3. rem -----------------------------------------------------------------------
  4. rem    Beginn ENV-Stub:
  5. rem 
  6. rem    Für diesen Stub:  Version B 1.1(mod)  (C) 1999-2000 by André Holzhey
  7. rem -----------------------------------------------------------------------
  8. :INIstub
  9. rem echo INIstub
  10.  
  11. if a%1 == a/INI if not a%/INI% == a/INI goto %2
  12. if not a%/INI% == a/INI goto Normstrt
  13. set /INI=
  14. goto %INIlabel%
  15.  
  16. :NormStrt
  17. :ENVstub
  18.  
  19. rem Test Windows NT (it's incompatible, but it doesn't requires an ENV-Stub)
  20.  
  21. if not "%OS%" == "Windows_NT" %comspec% /E:16300 /C %0 /INI UmgRestart %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
  22. if not "%OS%" == "Windows_NT" goto PrgEnde
  23.  
  24. echo.%COMSPEC%/ | find /I "\cmd.exe/" > nul
  25. if not errorlevel 1 goto UmgPass
  26. echo restarting ...
  27.  
  28. cmd.exe /C %0 /INI UmgRestart %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
  29. goto PrgEnde
  30.  
  31. :UmgRestart
  32. shift
  33. shift
  34. shift
  35.  
  36.  
  37. :UmgPass
  38.  
  39. rem -----------------------------------------------------------------------
  40. rem
  41. rem  Ende  ENV-Stub .
  42. rem
  43. rem  *******  Ab hier dürfen Umgebungsvariablen verwendet werden !!! ******
  44. rem
  45. rem
  46. rem  Achtung: dieser Header erwartet am Ende dieses Programms die
  47. rem           Sprungmarke PrgEnde (sonst gibts eine unschöne Fehlermeldung)
  48. rem -----------------------------------------------------------------------
  49. rem ***********************************************************************
  50. echo. 
  51. echo     ╔══════════════════════════════════════════════════════════════════╗
  52. echo     ║                                                                  ║
  53. echo     ║       RWSETUP.BAT - installation program launcher for the        ║
  54. echo     ║             English-German dictionary Version 1.49b              ║
  55. echo     ║     for Winword 7.0 and higher (and possibly for Winword6!)      ║
  56. echo     ║                                                                  ║
  57. echo     ║               (C) 1997-2000 by André Holzhey                     ║
  58. echo     ║                                                                  ║
  59. echo     ║                 holzhey@physik.tu-dresden.de                     ║
  60. echo     ║         http://www.phy.tu-dresden.de/~holzhey/ah-wobu            ║
  61. echo     ║                                                                  ║
  62. echo     ║      Für dieses Programm gilt die General Public License.        ║
  63. echo     ║              Der Autor übernimmt keine Gewähr.                   ║
  64. echo     ║               Für Details siehe 'license.txt'                    ║
  65. echo     ║                                                                  ║
  66. echo     ║    This program runs under GPL. It comes with absolutely no      ║
  67. echo     ║            warranty. For Details see 'license.txt'               ║
  68. echo     ║                                                                  ║
  69. echo     ╚══════════════════════════════════════════════════════════════════╝
  70.  
  71. echo.
  72. echo.  Die Installationsroutine wird vorbereitet. Bitte haben Sie etwas Geduld...
  73. echo.
  74. echo.  Preparing Setup. Please be patient...
  75. echo.
  76.  
  77. rem Teste Win31/Win9x/NTx, wrong OS
  78. rem --------------------------------
  79. if "%OS%" == "Windows_NT" goto OSOK
  80.  
  81.    rem teste, ob DOS95
  82.    if "%windir%" == "" goto WinError
  83.  
  84.    rem teste, ob  DOS6.2 & Win3.1:
  85.    echo."%winbootdir%" | find "\" > nul   
  86.    if errorlevel 1 goto WinError
  87.  
  88. :OSOK
  89.  
  90.  
  91. rem create an unique tempfile-name
  92. rem ----------------------------------
  93. set tmpregfil=%TEMP%\ahwbi15b-19276255697845.rgd
  94. if exist %tmpregfil% del  %tmpregfil%
  95.  
  96.  
  97.  
  98. rem check if a word .GE. 6 is installed. (don't get cheated by Wordpad!)
  99. rem --------------------------------------------------------------------
  100. echo   searching MS WinWord...
  101.  
  102. set Wordinst=0
  103. call %0 /INI CheckRegKey Wordinst "HKEY_CLASSES_ROOT\Word.Basic" "*"
  104. if %Wordinst% == 0 goto WordError
  105.  
  106. echo   ...found!
  107.  
  108. rem  check if a Word with VBA is installed (Word .GE. 8)
  109. rem --------------------------------------------------------------------
  110. set WordVBAinst=0
  111. call %0 /INI CheckRegKey WordVBAinst "HKEY_CLASSES_ROOT\Word.Application" "*"
  112. if exist %tmpregfil% del  %tmpregfil%
  113.  
  114. rem setze SFX-Information
  115. rem (wenn die Datei existiert, gilt dies für Setup.DOC als Zeichen für
  116. rem  SFX - Mechanismus und bevorstehende Selbstlöschung)
  117. if not "%1" == "/SFX" if exist ahwbsfx.lck del ahwbsfx.lck
  118. if not "%1" == "/SFX" goto nachCRSF
  119. echo.>ahwbsfx.lck
  120. :nachCRSF
  121.  
  122. echo.
  123. echo.
  124. echo   Starte den auf MS Word basierenden Teil der Installation...
  125. echo.
  126. echo.  launch now MS Word based Setup...
  127. echo.
  128. echo.
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136. :RunWait
  137.    rem  und sonst:
  138.    rem  hier '/Wait' , damit ggf. die 
  139.    rem  die Original-Dateien gelöscht werden können.
  140.    echo   Warte auf das Beenden von Word / waiting for Word to shut down...
  141.    if %WordVBAinst% == 0 start /wait /max setup.doc
  142.    if %WordVBAinst% == 1 start /wait /max winword.exe /lsetup.doc
  143.    if errorlevel 1 goto ErrLaunchWord
  144.    echo.
  145.    echo.Winword finished.
  146. goto EndLaunchWord
  147.  
  148.  
  149.  
  150. rem an error occured, a message was displayed.:
  151. :BackErrLaunch
  152.  
  153.  
  154. rem Successfully Launched Setup.doc:
  155. :EndLaunchWord
  156.  
  157. rem Remove Sourcefiles, if started from SFX
  158.  
  159. if not "%1" == "/SFX" goto EndDelFiles
  160. if     exist "C:\Please not, I'm the AH-WOBU developper" pause
  161.  
  162.  
  163. echo.
  164. echo removing temporary files...
  165. echo.
  166.  
  167. rem  wait until the temporary bat-file(called by setup.doc) has finished, since sleep32.exe may not
  168. rem  be deleted when running.
  169. if exist sleep32.exe sleep32.exe 7000
  170.  
  171.  
  172. if exist ah-wobu.do_  del ah-wobu.do_
  173. if exist ger-eng.tx_  del ger-eng.tx_
  174.  
  175. if exist license_.txt del license_.txt
  176. if exist Readme_.Doc  del Readme_.Doc
  177. if exist lesmich_.doc del lesmich_.doc  
  178. if exist file_id.diz  del file_id.diz  
  179. if exist Info.txt     del Info.txt
  180. if exist echosfn.exe  del echosfn.exe
  181.  
  182. if exist ah-wobu.i1_  del ah-wobu.i1_
  183. if exist ah-wobu.ic_  del ah-wobu.ic_ 
  184. if exist setup.doc    del setup.doc
  185. if exist rwsetup.pif  del rwsetup.pif
  186.  
  187. if exist chdme.pif    del chdme.pif
  188. if exist chdme.bat    del chdme.bat
  189. if exist chdme.exe    del chdme.exe
  190.  
  191. if exist deftpl.pi_   del deftpl.pi_
  192. if exist ctpl_nt.pi_  del ctpl_nt.pi_
  193. if exist ctpl_9x.pi_  del ctpl_9x.pi_
  194.  
  195. if exist NativVBA.DOT del NativVBA.DOT
  196. if exist w6only.DOT   del w6only.DOT
  197.  
  198. if exist sleep32.exe  del sleep32.exe
  199. if exist setup.exe    del setup.exe
  200. if exist dbg.doc      del dbg.doc  
  201. if exist ahwbsfx.lck  del ahwbsfx.lck 
  202. if exist setup.pif    del setup.pif 
  203. rem if exist  del 
  204.  
  205.  
  206. goto deleteme
  207. if exist deleteme.ex_ del deleteme.ex_ 
  208. if exist deleteme.pi_ del deleteme.pi_ 
  209.  
  210. echo ** Selbstlöschung. Die folgende Meldung kann ignoriert werden: **
  211. echo ** Self deletion. Please ignore the following message:         **
  212. echo.
  213. if exist rwsetup.bat del rwsetup.bat
  214.  
  215.  
  216. :deleteme
  217. rem besser:
  218.  
  219. rem before Uninstall, deleteme is possibly copied to %TEMP%
  220. set deleteme=
  221. if exist deletem_.exe set deleteme=deletem_.exe
  222. if not exist deletem_.exe if exist %TEMP%\deletem_.exe set deleteme=%TEMP%\deletem_.exe
  223.  
  224.  
  225. if not exist %0 if exist %0.bat start /min %deleteme% 5 %0.bat
  226. if exist %0 start /min %deleteme% 5 %0
  227. exit
  228.  
  229.  
  230. :EndDelFiles
  231.  
  232. goto PrgEnde
  233.  
  234.  
  235.  
  236.  
  237.  
  238. rem ------------------------------------------------------------
  239. rem a function
  240. rem ------------------------------------------------------------
  241.  
  242.  
  243. :CheckRegKey
  244. rem Params: 3 DestinationVar, 4 RegKey, 5 "RegEntry" or "*" for any
  245. rem the tempfile will not be deleted after successful operation. It might be used by the calling procedure.
  246. rem Note: the find-command will also search all subkeys
  247. set %3=0
  248. if exist  %tmpregfil% del %tmpregfil%
  249. start /wait regedit /E %tmpregfil% %4
  250. if not exist %tmpregfil% goto CRKfalse
  251.   echo /%5/ | find "/""*""/" > nul
  252.   if not errorlevel 1 goto CRKTrue
  253.  
  254.      rem  check Regvalue
  255.      find /I %5 < %tmpregfil% > nul
  256.      if errorlevel 1 goto CRKFalse
  257.  
  258. :CRKtrue
  259.   set %3=1
  260. :CRKFalse
  261. goto PrgEnde  
  262.  
  263.  
  264.  
  265.  
  266. :WordError
  267. echo.
  268. echo.
  269. echo.
  270. echo.  Dieses Programm erfordert Microsoft Word für Windows, Version 6.0 oder höher
  271. echo.
  272. echo.  This program requires Microsoft Word for Windows, version 6.0 or higher.
  273. echo.
  274. echo.
  275. if not "%OS%" == "Windows_NT" pause
  276. goto ende
  277.  
  278. :WinError
  279. echo.
  280. echo.
  281. echo.
  282. echo.  'André Holzheys Wörterbuch' benötigt mindestens Windows 3.1, dieses
  283. echo.  Installationsscript ist dagegen nur für Windows95/WindowsNT erforderlich.
  284. echo.
  285. echo.  Um André Holzheys Wörterbuch unter Windows 3.1 zu installieren, öffne 
  286. echo.  die Datei 'SETUP.DOC' einfach in MS Word 6.0 für Windows.
  287. echo.
  288.  
  289. echo.
  290. echo.  'André Holzheys dictionary' requires at least Windows 3.1 or newer, but 
  291. echo.  this batch installation script is only recommended under Windows 95/98 or 
  292. echo.  Windows NT (and anything newer).
  293. echo.  To Install the dictionary on Windows3.1 simply open the file 'SETUP.DOC' 
  294. echo.  in MS Word 6.0 for Windows
  295. echo.
  296. echo.
  297. if not "%OS%" == "Windows_NT" pause
  298. goto ende
  299.  
  300.  
  301. :ErrLaunchWord
  302. echo.
  303. echo.
  304. echo.
  305. echo.  Das Setup-Programm konnte nicht gestartet werden. Um das Wörterbuch
  306. echo.  trotzdem zu installieren, öffne die Datei 'SETUP.DOC' in Word (z.B. durch 
  307. echo.  Doppelklick).
  308. echo.
  309. echo.  The installation program could not be launched. To get the dictionary
  310. echo.  installed, try to open the file 'SETUP.DOC' in Word (e.g. by 
  311. echo.  doubleclicking it)
  312. echo.
  313. echo.
  314. if not "%OS%" == "Windows_NT" pause
  315. goto BackErrLaunch
  316.  
  317.  
  318. :ende
  319. echo RWSETUP has finished.
  320. :PrgEnde
  321.  
  322.  
  323.  
  324.  
  325. :Prgende
  326.