Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

88 lines
2.8 KiB

  1. Rem #########################################################################
  2. Rem
  3. Rem Copy "Microsoft Office Shortcut Bar.lnk" file from Office Install Root to
  4. Rem the current user's Startup menu.
  5. Rem
  6. If Exist "%RootDrive%\Office97" Goto Skip0
  7. If Exist "%USER_STARTUP%\Microsoft Office Shortcut Bar.lnk" Goto Skip0
  8. If Not Exist "#INSTDIR#\Microsoft Office Shortcut Bar.lnk" Goto Skip0
  9. Copy "#INSTDIR#\Microsoft Office Shortcut Bar.lnk" "%USER_STARTUP%\Microsoft Office Shortcut Bar.lnk" >Nul: 2>&1
  10. :Skip0
  11. Rem
  12. Rem Create directories for application specific data in the
  13. Rem user's home directory.
  14. Rem
  15. call TsMkUDir "%RootDrive%\Office97"
  16. call TsMkUDir "%RootDrive%\Office97\Startup"
  17. #ifdef JAPAN
  18. call TsMkUDir "%RootDrive%\Office97\Template"
  19. #else
  20. call TsMkUDir "%RootDrive%\Office97\Templates"
  21. #endif
  22. call TsMkuDir "%RootDrive%\Office97\XLStart"
  23. Rem
  24. Rem copy these files from the all users templates to the current user templates location
  25. Rem
  26. If Not Exist "%UserProfile%\%TEMPLATES%\WINWORD8.DOC" copy "%ALLUSERSPROFILE%\%TEMPLATES%\WINWORD8.DOC" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  27. If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  28. If Not Exist "%UserProfile%\%TEMPLATES%\BINDER.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  29. Rem
  30. Rem Copy the system toolbars to the user's home directory, unless
  31. Rem they already exist.
  32. Rem
  33. If Exist "%RootDrive%\Office97\ShortCut Bar" Goto Skip1
  34. If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
  35. Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office97\ShortCut Bar" /E /I >Nul: 2>&1
  36. :Skip1
  37. Rem
  38. Rem Copy the forms directory so that Outlook can use Word as the editor
  39. Rem
  40. If Exist "%RootDrive%\Windows\Forms" Goto Skip2
  41. If Not Exist "%SystemRoot%\Forms" Goto Skip2
  42. Xcopy "%SystemRoot%\Forms" "%RootDrive%\Windows\Forms" /e /i >Nul: 2>&1
  43. :Skip2
  44. Rem
  45. Rem Copy the ARTGALRY.CAG to user's windows directory
  46. Rem
  47. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip3
  48. If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip3
  49. Copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  50. :Skip3
  51. Rem
  52. Rem Copy Custom.dic file to user's directory
  53. Rem
  54. If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip4
  55. If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip4
  56. Copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
  57. :Skip4
  58. Rem
  59. Rem Copy Graph files to user's directory
  60. Rem
  61. If Exist "%RootDrive%\Office97\GR8GALRY.GRA" Goto Skip5
  62. If Not Exist "#INSTDIR#\Office\GR8GALRY.GRA" Goto Skip5
  63. Copy "#INSTDIR#\Office\GR8GALRY.GRA" "%RootDrive%\Office97\GR8GALRY.GRA" >Nul: 2>&1
  64. :Skip5
  65. If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip6
  66. If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip6
  67. Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
  68. :Skip6