home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / server / Server-on-CD.iso / socd / software / WinTer.exe / Swsetup.inf < prev    next >
Encoding:
Text File  |  2000-10-22  |  10.4 KB  |  293 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. CreateBackground vTitle
  13.  
  14. DialogOut 'WinTer Installation'
  15.  
  16.  
  17. vLogFileName    = '%__WindowsVerzeichnis__%\\WinTer.log'
  18.  
  19. fp = fopen vLogFileName 'w'                             
  20. If __error__ == 0
  21.     MessageBox 'Logdatei ''%vLogFileName%'' kann nicht ge÷ffnet werden'
  22.     Exit
  23. EndIf
  24.  
  25. Fehler = 0
  26.  
  27. fputs fp '\nInstallation WinTer\n\n'
  28.  
  29. fputs fp 'Datum/Uhrzeit: \t%__Date__%\n'
  30. fputs fp '   WinVersion: \t%__WinVersion__%\n'
  31. fputs fp '     WinMinor: \t%__WinMinor__%\n'
  32. fputs fp '    WinSystem: \t%__WinSystem__%\n'
  33. fputs fp '\n'
  34.  
  35. vDir = ' '
  36. vDir = GetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion' 'ProgramFilesDir' 
  37. If vDir <= ' '
  38.     vDir = 'c:'
  39. EndIf
  40. strcat vDir '\\WinTer'
  41.  
  42. deutsch = 1
  43. english = 2
  44.  
  45. tMeldung[deutsch][1] = 'WinTer Installation'
  46. tMeldung[english][1] = 'WinTer installation'
  47.  
  48. 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 !'
  49. 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 !'
  50.  
  51. 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.'
  52. tMeldung[english][3] = '\r\n\r\nPlease type the directory for install WinTer\r\nor use the "Browse..." for select a directory.'
  53.  
  54. 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.'
  55. tMeldung[english][4] = '\r\n\r\nPlease type the program group for WinTer\r\nor use the "Browse..." for select a program group.'
  56.  
  57. tMeldung[deutsch][5] = 'Windows Terminplaner'
  58. tMeldung[english][5] = 'Windows Terminplaner'
  59.  
  60. tMeldung[deutsch][6] = 'Das Verzeichnis kann nicht angelegt werden !'
  61. tMeldung[english][6] = 'Unable to create the directory !'
  62.  
  63.  
  64. If __Language__ == 'deu'
  65.    sprache = deutsch
  66. Else
  67.    sprache = english
  68. EndIf       
  69.  
  70.  
  71. If __WinVersion__ >= 4
  72.     vPrgGrp = tMeldung[sprache][5] 
  73.     cd 'c:\\'
  74.     WizardCreate
  75.     __WizardTitle__ = tMeldung[sprache][1]
  76.  
  77.     :page1
  78.         rc = WizardPageText     __WizardNext__    tMeldung[sprache][2]
  79.         if rc == __WizardCancel__
  80.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  81.             exit
  82.         EndIf
  83.  
  84.     :page2
  85.         __WizardBitmap__ = '%vInstallDirVon%\\winter1.bmp'
  86.         rc = WizardPageBrowse (__WizardBack__ + __WizardNext__) DIR tMeldung[sprache][3] vDir
  87.         if rc == __WizardBack__
  88.             Goto :page1
  89.         EndIf
  90.         if rc == __WizardCancel__
  91.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  92.             exit
  93.         EndIf
  94.  
  95.         mkdir vDir
  96.         If __error__ == 0
  97.            fputs fp '%tMeldung[sprache][6]%\n'
  98.            MessageBox tMeldung[sprache][6]
  99.            GoTo :page2
  100.         EndIf
  101.         rmdir vDir
  102.  
  103.     :page3
  104.         __WizardBitmap__ = '%vInstallDirVon%\\winter2.bmp'
  105.         rc = WizardPageBrowse (__WizardBack__ + __WizardNext__) GROUP tMeldung[sprache][4] vPrgGrp
  106.         if rc == __WizardBack__
  107.             Goto :page2
  108.         EndIf
  109.         if rc == __WizardCancel__
  110.             fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  111.             exit
  112.         EndIf
  113.         WizardClose
  114.         mkdir vDir
  115. Else
  116.     :NeuerVersuch
  117.     vText = 'Please select a directory'
  118.     If __Language__ == 'deu'
  119.        vText = 'Bitte Verzeichnis auswΣhlen'
  120.     EndIf
  121.     cd 'c:\\'
  122.     vDir = SelectDir vDir vText
  123.     If __error__ == 0
  124.         fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  125.         Exit
  126.     EndIf
  127.     
  128.     mkdir vDir
  129.     If __error__ == 0
  130.        vText = 'Unable to create the directory !'
  131.        If __Language__ == 'deu'
  132.         vText = 'Verzeichnis kann nicht angelegt werden'
  133.        EndIf
  134.        fputs fp '%vText%\n'
  135.        MessageBox vText
  136.        GoTo :NeuerVersuch
  137.     EndIf
  138.     // ------------ Program-group
  139.     vText2 = 'Please select a Program Group'
  140.     If __Language__ == 'deu'
  141.         vText2 = 'Bitte eine Programmgruppe auswΣhlen'
  142.     EndIf
  143.     :NeuerVersuch2
  144.     vText  = 'Windows Terminplaner'
  145.     If __Language__ == 'deu'
  146.         vText  = 'Windows Terminplaner'
  147.     EndIf
  148.     vPrgGrp = SelectProgramGroup vText vText2
  149.     If __error__ == 0
  150.         fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  151.         Exit
  152.     EndIf
  153. EndIf    
  154.      
  155. fputs fp 'Installation von:  %vInstallDirVon%\n'
  156. fputs fp 'Installation nach: %vDir%\n\n'
  157.  
  158. if __System32__ == 1
  159.    CopyFile '%vInstallDirVon%\\winternt.exe' '%vDir%\\winter.exe' ALWAYS fp
  160.    Fehler += __Error__
  161. else        // windows 3.n
  162.    CopyFile '%vInstallDirVon%\\winter.exe' '%vDir%\\winter.exe' fp
  163.    Fehler += __Error__
  164. endif
  165. CopyFile '%vInstallDirVon%\\lesemich.txt' '%vDir%\\lesemich.txt' fp
  166. Fehler += __Error__
  167. CopyFile '%vInstallDirVon%\\beispiel.wtr' '%vDir%\\beispiel.wtr' ALWAYS fp
  168. Fehler +=  __Error__
  169. CopyFile '%vInstallDirVon%\\beispiel.i0'  '%vDir%\\beispiel.i0' ALWAYS fp
  170. Fehler +=  __Error__
  171.  
  172.  
  173. CopyFile '%vInstallDirVon%\\winter.hlp'   '%vDir%\\winter.hlp' fp
  174. Fehler += __Error__
  175.  
  176. fputs fp '\n'
  177.  
  178.  
  179. CreateItem '\\PG\\%vPrgGrp%' 'WinTer' '%vDir%\\WinTer.exe' '' '%vDir%' '%vDir%\\WinTer.exe' 0 0
  180. If __error__ == 0
  181.    vText = 'Error, can not create program-icon/group'
  182.    If __Language__ == 'deu'
  183.     vText = 'Programm-Icon/Gruppe kann nicht angelegt werden'
  184.    EndIf
  185.    fputs fp '%vText%\n'
  186.    MessageBox vText
  187.    GoTo :NeuerVersuch2
  188. EndIf
  189. fputs fp 'Ok: CreateItem "%vPrgGrp%" ---> WinTer\n'
  190.  
  191. CreateItem '\\PG\\%vPrgGrp%' 'Beispiel.wtr' '%vDir%\\WinTer.exe'   '%vDir%\\beispiel.wtr' '%vDir%' '%vDir%\\WinTer.exe' 0 0
  192. vReadme = 'LiesMich'
  193. CreateItem '\\PG\\%vPrgGrp%' vReadme 'notepad' '%vDir%\\lesemich.txt' '%vDir%' 'notepad.exe' 0 0
  194.  
  195. // ------------ Uninstall WinTer with Registry
  196. vUninst = 'Uninstall WinTer'
  197. If __Language__ == 'deu'
  198.    vUninst = 'WinTer entfernen'
  199. EndIf
  200.  
  201. If __WinVersion__ < 4
  202.    CreateItem '\\PG\\%vPrgGrp%' vUninst 'SwSetupu.exe' '%__WindowsVerzeichnis__%\\WinTer.del' '%__WindowsVerzeichnis__%' '%__WindowsVerzeichnis__%\\SwSetupu.exe' 0 0
  203. Else
  204.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\WinTer' 'DisplayName' 'Uninstall WinTer'
  205.    If __Error__ != 0
  206.       MessageBox 'Error Set Registry (Uninstall DisplayName).'
  207.    EndIf
  208.  
  209.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\WinTer' 'UninstallString' 'SwSetupu %__WindowsDirectory__%\\WinTer.del'
  210.    If __Error__ != 0
  211.       MessageBox 'Error Set Registry (UninstallString).'
  212.    EndIf
  213. EndIf
  214.  
  215. fpDel = fopen '%__WindowsVerzeichnis__%\\winter.del' 'w'                             
  216. If __error__ == 0
  217.    fputs fp   'Datei ''%vDir%\\WinTer.del'' kann nicht ge÷ffnet werden\n'
  218.    MessageBox 'Datei ''%vDir%\\WinTer.del'' kann nicht ge÷ffnet werden'
  219.    Fehler = 1
  220. EndIf
  221. vT1 = 'Uninstall WinTer'
  222. vT2 = 'This will remove "WinTer".\\nDo you wish continue ?'
  223. vT3 = 'WinTer removed.'
  224. If __Language__ == 'deu'
  225.    vT1 = 'WinTer entfernen'
  226.    vT2 = 'M÷chten Sie tatsΣchlich WinTer entfernen ?'
  227.    vT3 = 'WinTer wurde entfernt !'
  228. EndIf
  229. fputs fpDel 'CreateBackground  ''%vT1%''\n'
  230. fputs fpDel 'DialogOut         ''%vT1%''\n'
  231. fputs fpDel 'MessageBox        ''%vT2%'' 36\n'
  232. fputs fpDel 'If __error__ == 6\n'
  233. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTer.exe''\n'
  234. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTer.hlp''\n'
  235. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTer.gid''\n'
  236. fputs fpDel '   DeleteFile     ''%vDir%\\\\WinTerSd.exe''\n'
  237. fputs fpDel '   DeleteFile     ''%vDir%\\\\beispiel.wtr''\n'
  238. fputs fpDel '   DeleteFile     ''%vDir%\\\\beispiel.i0''\n'
  239. fputs fpDel '   DeleteFile     ''%vDir%\\\\winter.wtr''\n'
  240. fputs fpDel '   DeleteFile     ''%vDir%\\\\winter.i0''\n'
  241. fputs fpDel '   DeleteFile     ''%vDir%\\\\lesemich.txt''\n'
  242. fputs fpDel '   rmdir          ''%vDir%''\n'
  243. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.del''\n'
  244. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.ini''\n'
  245. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\WinTer.log''\n'
  246. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''WinTer''  '''' '''' '''' '''' 0 0\n'
  247. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''WinTer Sound''  '''' '''' '''' '''' 0 0\n'
  248. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''Beispiel.wtr''  '''' '''' '''' '''' 0 0\n'
  249. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vReadme%'' '''' '''' '''' '''' 0 0\n'
  250. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vUninst%'' '''' '''' '''' '''' 0 0\n'
  251. fputs fpDel '   DeleteRegistry ''HKEY_LOCAL_MACHINE'' ''SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Uninstall\\\\WinTer'' ''''\n'
  252. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\Settings'' ''''\n'
  253. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\winter'' ''''\n'
  254. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\General-Bar0'' ''''\n'
  255. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\General-Bar1'' ''''\n'
  256. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\General-Bar2'' ''''\n'
  257. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\General-Bar3'' ''''\n'
  258. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\General-Summary'' ''''\n'
  259. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer\\Recent File List'' ''''\n'
  260. fputs fpDel '   DeleteRegistry ''HKEY_CURRENT_USER'' ''SOFTWARE\\\\sw4you\\\\WinTer'' ''''\n'
  261. fputs fpDel '   MessageBox ''%vT3%''\n'
  262. fputs fpDel 'EndIf\n'
  263. // ------------ 
  264.  
  265. SetIniFile '%__WindowsVerzeichnis__%\\winter.ini' 'WinTer' 'InstallDir' vDir
  266.  
  267. fputs fp '\nEnde\n'
  268.  
  269. If Fehler != 0
  270.    vText = '\r\nError by installation, will you see the installation-log ?'
  271.    If __Language__ == 'deu'
  272.       vText = '\r\nBei der Installation ist ein Fehler aufgetreten,\r\nsoll die Installations-Logdatei angezeigt werden ?'
  273.    EndIf
  274.    MessageBox vText 36
  275.    If __error__ == 6
  276.     fclose fp
  277.     Exec 'notepad %vLogFileName%'
  278.     Exit
  279.    EndIf
  280. Endif
  281.  
  282. If Fehler == 0
  283. vText = 'Setup is complete.  You may run the WinTer program.'
  284.    If __Language__ == 'deu'
  285.       vText = 'Die Installation ist Ok, Sie k÷nnen nun das Programm WinTer starten.'
  286.    Endif
  287.    MessageBox vText
  288. EndIf
  289.  
  290. fclose fp
  291.  
  292. Exit
  293.