home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 10 / Chip_Hitware_Vol_10.iso / chiphit / business / 95winter / winter32.exe / SWSETUP.INF < prev    next >
Text File  |  1997-06-25  |  13KB  |  366 lines
  1. /*
  2.  * - Installation WinTer  (Uninstall Win V3 = Icon. Win 4 = Registry)
  3.  *
  4.  * letzte ─nderung: 97-01-08
  5.  *
  6.  */
  7.  
  8. vInstallDirVon = pwd
  9.  
  10. vTitle = 'WinTer Installation'
  11.  
  12. vIni = ' '
  13. vIni = GetIniFile '%vInstallDirVon%\\setup.ini' 'Verwendung' 'Cr'
  14. If vIni > ' '
  15.     vTitle = '%vTitle%\r\n %vIni%'
  16. EndIf
  17.  
  18. CreateBackground vTitle
  19.  
  20. DialogOut 'WinTer Installation'
  21.  
  22.  
  23. vLogFileName    = '%__WindowsVerzeichnis__%\\WinTer.log'
  24.  
  25. fp = fopen vLogFileName 'w'                             
  26. If __error__ == 0
  27.     MessageBox 'Logdatei ''%vLogFileName%'' kann nicht ge÷ffnet werden'
  28.     Exit
  29. EndIf
  30.  
  31. Fehler = 0
  32.  
  33. fputs fp '\nInstallation WinTer\n\n'
  34.  
  35. fputs fp 'Datum/Uhrzeit: \t%__Date__%\n'
  36. fputs fp '   WinVersion: \t%__WinVersion__%\n'
  37. fputs fp '     WinMinor: \t%__WinMinor__%\n'
  38. fputs fp '    WinSystem: \t%__WinSystem__%\n'
  39. fputs fp '\n'
  40.  
  41. vDir = ' '
  42. vDir = GetIniFile '%__WindowsVerzeichnis__%\\winter.ini' 'WinTer' 'InstallDir'
  43. If vDir <= ' '
  44.     vDir = 'c:\\Winter'
  45. EndIf
  46.  
  47. deutsch = 1
  48. english = 2
  49.  
  50. tMeldung[deutsch][1] = 'WinTer Installation'
  51. tMeldung[english][1] = 'WinTer installation'
  52.  
  53. tMeldung[deutsch][2] = 'Es wird jetzt das Programm WinTer installiert.\r\n\r\nDas Programm WinTer erm÷glicht es Ihnen Ihre Termine zu verwalten.\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nDieses Setup-Programm (SwSetup) ist ⁿbrigens ebenfalls Freeware !'
  54. tMeldung[english][2] = 'Setup is ready to install WinTer.\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nThis setup programm (SwSetup) is freeware !'
  55.  
  56. tMeldung[deutsch][3] = 'Bitte geben Sie hier das Verzeichnis an, in welchem Sie WinTer installieren wollen,\r\noder verwenden Sie "Auswahl...", um ein anderes Verzeichnis auszuwΣhlen.'
  57. tMeldung[english][3] = '\r\n\r\nPlease type the directory for install WinTer\r\nor use the "Browse..." for select a directory.'
  58.  
  59. tMeldung[deutsch][4] = 'Bitte geben Sie hier die Programmgruppe an, in welchem Sie das WinTer eintragen wollen,\r\noder verwenden Sie "Auswahl...", um ein andere Gruppe auszuwΣhlen.'
  60. tMeldung[english][4] = '\r\n\r\nPlease type the program group for WinTer\r\nor use the "Browse..." for select a program group.'
  61.  
  62. tMeldung[deutsch][5] = 'Windows Terminplaner'
  63. tMeldung[english][5] = 'Windows Terminplaner'
  64.  
  65. tMeldung[deutsch][6] = 'Das Verzeichnis kann nicht angelegt werden !'
  66. tMeldung[english][6] = 'Unable to create the directory !'
  67.  
  68.  
  69. If __Language__ == 'deu'
  70.    sprache = deutsch
  71. Else
  72.    sprache = english
  73. EndIf       
  74.  
  75.  
  76. If __WinVersion__ >= 4
  77.     vPrgGrp = tMeldung[sprache][5] 
  78.     cd 'c:\\'
  79.     WizardCreate
  80.     __WizardTitle__ = tMeldung[sprache][1]
  81.  
  82.     :page1
  83.         rc = WizardPageText     __WizardNext__    tMeldung[sprache][2]
  84.         if rc == __WizardCancel__
  85.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  86.             exit
  87.         EndIf
  88.  
  89.     :page2
  90.         __WizardBitmap__ = '%vInstallDirVon%\\winter1.bmp'
  91.         rc = WizardPageBrowse (__WizardBack__ + __WizardNext__) DIR tMeldung[sprache][3] vDir
  92.         if rc == __WizardBack__
  93.             Goto :page1
  94.         EndIf
  95.         if rc == __WizardCancel__
  96.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  97.             exit
  98.         EndIf
  99.  
  100.         mkdir vDir
  101.         If __error__ == 0
  102.            fputs fp '%tMeldung[sprache][6]%\n'
  103.            MessageBox tMeldung[sprache][6]
  104.            GoTo :page2
  105.         EndIf
  106.         rmdir vDir
  107.  
  108.     :page3
  109.         __WizardBitmap__ = '%vInstallDirVon%\\winter2.bmp'
  110.         rc = WizardPageBrowse (__WizardBack__ + __WizardNext__) GROUP tMeldung[sprache][4] vPrgGrp
  111.         if rc == __WizardBack__
  112.             Goto :page2
  113.         EndIf
  114.         if rc == __WizardCancel__
  115.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  116.             exit
  117.         EndIf
  118.         WizardClose
  119.         mkdir vDir
  120. Else
  121.     :NeuerVersuch
  122.     vText = 'Please select a directory'
  123.     If __Language__ == 'deu'
  124.        vText = 'Bitte Verzeichnis auswΣhlen'
  125.     EndIf
  126.     cd 'c:\\'
  127.     vDir = SelectDir vDir vText
  128.     If __error__ == 0
  129.         fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  130.         Exit
  131.     EndIf
  132.     
  133.     mkdir vDir
  134.     If __error__ == 0
  135.        vText = 'Unable to create the directory !'
  136.        If __Language__ == 'deu'
  137.         vText = 'Verzeichnis kann nicht angelegt werden'
  138.        EndIf
  139.        fputs fp '%vText%\n'
  140.        MessageBox vText
  141.        GoTo :NeuerVersuch
  142.     EndIf
  143.     // ------------ Program-group
  144.     vText2 = 'Please select a Program Group'
  145.     If __Language__ == 'deu'
  146.         vText2 = 'Bitte eine Programmgruppe auswΣhlen'
  147.     EndIf
  148.     :NeuerVersuch2
  149.     vText  = 'Windows Terminplaner'
  150.     If __Language__ == 'deu'
  151.         vText  = 'Windows Terminplaner'
  152.     EndIf
  153.     vPrgGrp = SelectProgramGroup vText vText2
  154.     If __error__ == 0
  155.         fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  156.         Exit
  157.     EndIf
  158. EndIf    
  159.      
  160. fputs fp 'Installation von:  %vInstallDirVon%\n'
  161. fputs fp 'Installation nach: %vDir%\n\n'
  162.  
  163. if __System32__ == 1
  164.    CopyFile '%vInstallDirVon%\\winternt.exe' '%vDir%\\winter.exe' ALWAYS fp
  165.    Fehler += __Error__
  166. else        // windows 3.n
  167.    CopyFile '%vInstallDirVon%\\winter.exe' '%vDir%\\winter.exe' fp
  168.    Fehler += __Error__
  169. endif
  170. CopyFile '%vInstallDirVon%\\lesemich.txt' '%vDir%\\lesemich.txt' fp
  171. Fehler += __Error__
  172. CopyFile '%vInstallDirVon%\\beispiel.wtr' '%vDir%\\beispiel.wtr' ALWAYS fp
  173. Fehler +=  __Error__
  174. CopyFile '%vInstallDirVon%\\beispiel.i0'  '%vDir%\\beispiel.i0' ALWAYS fp
  175. Fehler +=  __Error__
  176.  
  177.  
  178. // ------------ WinTer.ini
  179. vIni = ''
  180. vIni = GetIniFile '%vInstallDirVon%\\setup.ini' 'Verwendung' 'Anzahl'
  181. If vIni != ''
  182.     SetIniFile '%__WindowsVerzeichnis__%\\winter.ini' 'Verwendung' 'Anzahl' vIni
  183. EndIf
  184. vIni = ''
  185. vIni = GetIniFile '%vInstallDirVon%\\setup.ini' 'Verwendung' 'Cr'
  186. If vIni != ''
  187.     SetIniFile '%__WindowsVerzeichnis__%\\winter.ini' 'Verwendung' 'Cr' vIni
  188. EndIf
  189.  
  190.  
  191. WizardCreate
  192. __WizardTitle__ = tMeldung[sprache][1]
  193. :NextDisk
  194. vL = 0
  195. vL = GetFileSize '%vInstallDirVon%\\wintersd.exe'
  196. If vL < 1
  197.     If __WinVersion__ >= 4
  198.         vInstallDirVon = 'a:'
  199.         cd vInstallDirVon
  200.         rc = WizardPageBrowse __WizardNext__ DIR '\r\nBitte nΣchste Diskette einlegen !' vInstallDirVon
  201.         if rc == __WizardCancel__ 
  202.             fputs fp 'Installation durch Benutzer abgebrochen\n'
  203.             Exit
  204.         Endif
  205.     Else
  206.         vDialogRc = Dialog '\r\nBitte nΣchste Diskette einlegen !' vInstallDirVon
  207.         if vDialogRc == 'CANCEL'
  208.             fputs fp 'Installation durch Benutzer abgebrochen\n'
  209.             Exit
  210.         endif
  211.     Endif
  212.     goto :NextDisk
  213. EndIf
  214. WizardClose
  215.  
  216. CopyFile '%vInstallDirVon%\\wintersd.exe' '%vDir%\\wintersd.exe' fp
  217. Fehler += __Error__
  218. CopyFile '%vInstallDirVon%\\winter.hlp'   '%vDir%\\winter.hlp' fp
  219. Fehler += __Error__
  220. CopyFile '%vInstallDirVon%\\mfcoleui.dll' '%__WindowsSystemVerzeichnis__%\\mfcoleui.dll' fp
  221. Fehler += __Error__
  222.  
  223. If __System32__ == 1
  224.     CopyFile '%vInstallDirVon%\\mfcans32.dll' '%__WindowsSystemVerzeichnis__%\\mfcans32.dll' fp
  225.     Fehler += __Error__
  226.     CopyFile '%vInstallDirVon%\\mfcuia32.dll' '%__WindowsSystemVerzeichnis__%\\mfcuia32.dll' fp
  227.     Fehler += __Error__
  228. EndIf
  229.  
  230. If __WinVersion__ == '3'
  231.     LZCopyFile '%vInstallDirVon%\\compobj.dl_'  '%__WindowsSystemVerzeichnis__%\\compobj.dll' fp
  232.     Fehler += __Error__
  233.     LZCopyFile '%vInstallDirVon%\\ole2.dl_'     '%__WindowsSystemVerzeichnis__%\\ole2.dll' fp
  234.     Fehler += __Error__
  235.     LZCopyFile '%vInstallDirVon%\\ole2disp.dl_' '%__WindowsSystemVerzeichnis__%\\ole2disp.dll' fp
  236.     Fehler += __Error__
  237.     LZCopyFile '%vInstallDirVon%\\storage.dl_'  '%__WindowsSystemVerzeichnis__%\\storage.dll' fp
  238.     Fehler += __Error__
  239.     LZCopyFile '%vInstallDirVon%\\ole2nls.dl_'  '%__WindowsSystemVerzeichnis__%\\ole2nls.dll' fp
  240.     Fehler += __Error__
  241.     LZCopyFile '%vInstallDirVon%\\ole2conv.dl_' '%__WindowsSystemVerzeichnis__%\\ole2conv.dll' fp
  242.     Fehler += __Error__
  243.     LZCopyFile '%vInstallDirVon%\\ole2prox.dl_' '%__WindowsSystemVerzeichnis__%\\ole2prox.dll' fp
  244.     Fehler +=  __Error__
  245.     LZCopyFile '%vInstallDirVon%\\ole2.reg'     '%__WindowsSystemVerzeichnis__%\\ole2.reg' fp
  246.     Fehler += __Error__
  247.     LZCopyFile '%vInstallDirVon%\\stdole.tlb'   '%__WindowsSystemVerzeichnis__%\\stdole.tlb' fp
  248.     Fehler += __Error__
  249.     LZCopyFile '%vInstallDirVon%\\typelib.dl_'  '%__WindowsSystemVerzeichnis__%\\typelib.dll' fp
  250.     Fehler += __Error__
  251.     fputs fp 'Exec: REGEDIT.EXE /S OLE2.REG\n'
  252.     Exec 'REGEDIT.EXE /S OLE2.REG'
  253. EndIf
  254.  
  255. fputs fp 'Exec: %vDir%\\wintersd.exe r\n'
  256. Exec '%vDir%\\wintersd.exe r'
  257.  
  258. fputs fp '\n'
  259.  
  260.  
  261. CreateItem '\\PG\\%vPrgGrp%' 'WinTer' '%vDir%\\WinTer.exe' '' '%vDir%' '%vDir%\\WinTer.exe' 0 0
  262. If __error__ == 0
  263.    vText = 'Error, can not create program-icon/group'
  264.    If __Language__ == 'deu'
  265.     vText = 'Programm-Icon/Gruppe kann nicht angelegt werden'
  266.    EndIf
  267.    fputs fp '%vText%\n'
  268.    MessageBox vText
  269.    GoTo :NeuerVersuch2
  270. EndIf
  271. fputs fp 'Ok: CreateItem "%vPrgGrp%" ---> WinTer\n'
  272.  
  273. CreateItem '\\PG\\%vPrgGrp%' 'Beispiel.wtr' '%vDir%\\WinTer.exe'   '%vDir%\\beispiel.wtr' '%vDir%' '%vDir%\\WinTer.exe' 0 0
  274. CreateItem '\\PG\\%vPrgGrp%' 'WinTer Sound' '%vDir%\\WinTerSd.exe' '' '%vDir%' '%vDir%\\WinTerSd.exe' 0 0
  275. vReadme = 'LiesMich'
  276. CreateItem '\\PG\\%vPrgGrp%' vReadme 'notepad' '%vDir%\\lesemich.txt' '%vDir%' 'notepad.exe' 0 0
  277.  
  278. // ------------ Uninstall WinTer with Registry
  279. vUninst = 'Uninstall WinTer'
  280. If __Language__ == 'deu'
  281.    vUninst = 'WinTer entfernen'
  282. EndIf
  283.  
  284. If __WinVersion__ < 4
  285.    CreateItem '\\PG\\%vPrgGrp%' vUninst 'SwSetupu.exe' '%__WindowsVerzeichnis__%\\WinTer.del' '%__WindowsVerzeichnis__%' '%__WindowsVerzeichnis__%\\SwSetupu.exe' 0 0
  286. Else
  287.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\WinTer' 'DisplayName' 'Uninstall WinTer'
  288.    If __Error__ != 0
  289.       MessageBox 'Error Set Registry (Uninstall DisplayName).'
  290.    EndIf
  291.  
  292.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\WinTer' 'UninstallString' 'SwSetupu %__WindowsDirectory__%\\WinTer.del'
  293.    If __Error__ != 0
  294.       MessageBox 'Error Set Registry (UninstallString).'
  295.    EndIf
  296. EndIf
  297.  
  298. fpDel = fopen '%__WindowsVerzeichnis__%\\winter.del' 'w'                             
  299. If __error__ == 0
  300.    fputs fp   'Datei ''%vDir%\\WinTer.del'' kann nicht ge÷ffnet werden\n'
  301.    MessageBox 'Datei ''%vDir%\\WinTer.del'' kann nicht ge÷ffnet werden'
  302.    Fehler = 1
  303. EndIf
  304. vT1 = 'Uninstall WinTer'
  305. vT2 = 'This will remove "WinTer".\\nDo you wish continue ?'
  306. vT3 = 'WinTer removed.'
  307. If __Language__ == 'deu'
  308.    vT1 = 'WinTer entfernen'
  309.    vT2 = 'M÷chten Sie tatsΣchlich WinTer entfernen ?'
  310.    vT3 = 'WinTer wurde entfernt !'
  311. EndIf
  312. fputs fpDel 'CreateBackground  ''%vT1%''\n'
  313. fputs fpDel 'DialogOut         ''%vT1%''\n'
  314. fputs fpDel 'MessageBox        ''%vT2%'' 36\n'
  315. fputs fpDel 'If __error__ == 6\n'
  316. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTer.exe''\n'
  317. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTer.hlp''\n'
  318. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTerSd.exe''\n'
  319. fputs fpDel '   DeleteFile     ''%vDir%\\\\beispiel.wtr''\n'
  320. fputs fpDel '   DeleteFile     ''%vDir%\\\\beispiel.i0''\n'
  321. fputs fpDel '   DeleteFile     ''%vDir%\\\\winter.wtr''\n'
  322. fputs fpDel '   DeleteFile     ''%vDir%\\\\winter.i0''\n'
  323. fputs fpDel '   DeleteFile     ''%vDir%\\\\lesemich.txt''\n'
  324. fputs fpDel '   rmdir          ''%vDir%''\n'
  325. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.del''\n'
  326. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.ini''\n'
  327. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.log''\n'
  328. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''WinTer''  '''' '''' '''' '''' 0 0\n'
  329. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''WinTer Sound''  '''' '''' '''' '''' 0 0\n'
  330. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''Beispiel.wtr''  '''' '''' '''' '''' 0 0\n'
  331. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vReadme%'' '''' '''' '''' '''' 0 0\n'
  332. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vUninst%'' '''' '''' '''' '''' 0 0\n'
  333. fputs fpDel '   DeleteRegistry ''HKEY_LOCAL_MACHINE'' ''SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Uninstall\\\\WinTer'' ''''\n'
  334. fputs fpDel '   MessageBox ''%vT3%''\n'
  335. fputs fpDel 'EndIf\n'
  336. // ------------ 
  337.  
  338. SetIniFile '%__WindowsVerzeichnis__%\\winter.ini' 'WinTer' 'InstallDir' vDir
  339.  
  340. fputs fp '\nEnde\n'
  341.  
  342. If Fehler != 0
  343.    vText = '\r\nError by installation, will you see the installation-log ?'
  344.    If __Language__ == 'deu'
  345.       vText = '\r\nBei der Installation ist ein Fehler aufgetreten,\r\nsoll die Installations-Logdatei angezeigt werden ?'
  346.    EndIf
  347.    MessageBox vText 36
  348.    If __error__ == 6
  349.     fclose fp
  350.     Exec 'notepad %vLogFileName%'
  351.     Exit
  352.    EndIf
  353. Endif
  354.  
  355. If Fehler == 0
  356. vText = 'Setup is complete.  You may run the WinTer program.'
  357.    If __Language__ == 'deu'
  358.       vText = 'Die Installation ist Ok, Sie k÷nnen nun das Programm WinTer starten.'
  359.    Endif
  360.    MessageBox vText
  361. EndIf
  362.  
  363. fclose fp
  364.  
  365. Exit
  366.