home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 September / WIN95_09964.iso / printer / hardcopx.exe / SWSETUP.INF < prev    next >
Text File  |  1996-08-30  |  7KB  |  207 lines
  1. /*
  2.  * - Installation Hardcopy  (Uninstall Win V3 = Icon. Win 4 = Registry)
  3.  *
  4.  * letzte ─nderung: 96-08-30
  5.  *
  6.  */
  7.  
  8. DialogLoggingOff
  9. CreateBackground 'SwSetup - Hardcopy Installation'
  10.  
  11. DialogOut 'SwSetup  -  Hardcopy Installation'
  12.  
  13. vInstallDirVon = pwd
  14.  
  15.  
  16. // -------------------------------------------------------
  17.  
  18. vLogFileName    = '%__WindowsVerzeichnis__%\\Hardcopy.log'
  19.  
  20. fp = fopen vLogFileName 'w'                             
  21. If __error__ == 0
  22.     MessageBox 'Logdatei ''%vLogFileName%'' kann nicht ge÷ffnet werden'
  23.     Exit
  24. EndIf
  25.  
  26. Fehler = 0
  27.  
  28. fputs fp '\nInstallation Hardcopy\n\n'
  29.  
  30. fputs fp 'Datum/Uhrzeit: \t%__Date__%\n'
  31. fputs fp '   WinVersion: \t%__WinVersion__%\n'
  32. fputs fp '     WinMinor: \t%__WinMinor__%\n'
  33. fputs fp '    WinSystem: \t%__WinSystem__%\n'
  34. fputs fp '\n'
  35.  
  36.  
  37. :NeuerVersuch
  38. vText = 'Please select a directory'
  39. If __Language__ == 'deu'
  40.    vText = 'Bitte Verzeichnis auswΣhlen'
  41. EndIf
  42. cd 'c:\\'
  43. vDir = SelectDir 'c:\\Hardcopy' vText
  44. If __error__ == 0
  45.     fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  46.     Exit
  47. EndIf
  48.  
  49. mkdir vDir
  50. If __error__ == 0
  51.    vText = 'Unable to create the directory !'
  52.    If __Language__ == 'deu'
  53.     vText = 'Verzeichnis kann nicht angelegt werden'
  54.    EndIf
  55.    fputs fp '%vText%\n'
  56.    MessageBox vText
  57.    GoTo :NeuerVersuch
  58. EndIf
  59.  
  60.  
  61. fputs fp 'Installation von:  %vInstallDirVon%\n'
  62. fputs fp 'Installation nach: %vDir%\n\n'
  63.  
  64. if __WinSystem__ == 'NT'
  65.    CopyFile '%vInstallDirVon%\\HcpNTdll.dll' '%vDir%\\HcpNTdll.Dll' fp
  66.    Fehler = Fehler | __Error__
  67.    CopyFile '%vInstallDirVon%\\HrdCpy32.exe' '%vDir%\\Hardcopy.exe' fp
  68.    Fehler = Fehler | __Error__
  69. else        // windows95 oder windows 3.n
  70.    CopyFile '%vInstallDirVon%\\HcpDll.dll'   '%vDir%\\HcpDll.Dll'   fp
  71.    Fehler = Fehler | __Error__
  72.    CopyFile '%vInstallDirVon%\\Hardcopy.exe'    '%vDir%\\Hardcopy.exe' fp
  73.    Fehler = Fehler | __Error__
  74. endif
  75.  
  76. fputs fp '\n'
  77.  
  78.  
  79. // ------------ Program-group
  80. :NeuerVersuch2
  81. vText  = 'Hardcopy - Print Screen'
  82. vText2 = 'Please select a Program Group'
  83. If __Language__ == 'deu'
  84.    vText  = 'Hardcopy - Bildschirmausdruck'
  85.    vText2 = 'Bitte eine Programmgruppe auswΣhlen'
  86. EndIf
  87. vPrgGrp = SelectProgramGroup vText vText2
  88. If __error__ == 0
  89.     fputs fp 'Der Benutzer hat die Installation abgebrochen !\n'
  90.     Exit
  91. EndIf
  92.  
  93.  
  94. // ------------ Hardcopy
  95. CreateItem '\\PG\\%vPrgGrp%' 'Hardcopy' '%vDir%\\Hardcopy.exe' '' '%vDir%' '%vDir%\\Hardcopy.exe' 0 1
  96. If __error__ == 0
  97.    vText = 'Error, can not create program-icon/group'
  98.    If __Language__ == 'deu'
  99.     vText = 'Programm-Icon/Gruppe kann nicht angelegt werden'
  100.    EndIf
  101.    fputs fp '%vText%\n'
  102.    MessageBox vText
  103.    GoTo :NeuerVersuch2
  104. EndIf
  105. fputs fp 'Ok: CreateItem "%vPrgGrp%" ---> Hardcopy\n'
  106.  
  107.  
  108. // ------------ Readme
  109. vReadme = 'ReadMe'
  110. If __Language__ == 'deu'
  111.    vReadme = 'LiesMich'
  112. EndIf
  113.  
  114. CopyFile   '%vInstallDirVon%\\%vReadme%.txt' '%vDir%\\%vReadme%.txt' fp
  115.  
  116. CreateItem '\\PG\\%vPrgGrp%' vReadme 'notepad' '%vDir%\\%vReadme%.txt' '%vDir%' 'notepad.exe' 0 0
  117. If __error__ == 0
  118.    Fehler = 1
  119.    vText = 'Error, can not create program-icon/group for %vReadme%.txt'
  120.    If __Language__ == 'deu'
  121.     vText = 'Programm-Icon/Gruppe "%vReadme%.txt" kann nicht angelegt werden'
  122.    EndIf
  123.    fputs fp '%vText%\n'
  124.    MessageBox vText
  125. Else 
  126.    fputs fp 'Ok: CreateItem "%vPrgGrp%" ---> %vReadme%\n'
  127. EndIf
  128.  
  129.  
  130. // ------------ Uninstall Hardcopy with Registry
  131. vUninst = 'Uninstall Hardcopy'
  132. If __Language__ == 'deu'
  133.    vUninst = 'Hardcopy entfernen'
  134. EndIf
  135.  
  136. If __WinVersion__ < 4
  137.    CreateItem '\\PG\\%vPrgGrp%' vUninst 'SwSetupu.exe' '%__WindowsVerzeichnis__%\\hardcopy.del' '%__WindowsVerzeichnis__%' '%__WindowsVerzeichnis__%\\SwSetupu.exe' 0 0
  138. Else
  139.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\Hardcopy' 'DisplayName' 'Uninstall Hardcopy'
  140.    If __Error__ != 0
  141.       MessageBox 'Error Set Registry (Uninstall DisplayName).'
  142.    EndIf
  143.  
  144.    SetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\Hardcopy' 'UninstallString' 'SwSetupu %__WindowsDirectory__%\\Hardcopy.del'
  145.    If __Error__ != 0
  146.       MessageBox 'Error Set Registry (UninstallString).'
  147.    EndIf
  148. EndIf
  149.  
  150.  
  151. fpDel = fopen '%__WindowsVerzeichnis__%\\hardcopy.del' 'w'                             
  152. If __error__ == 0
  153.    fputs fp   'Datei ''%vDir%\\hardcopy.del'' kann nicht ge÷ffnet werden\n'
  154.    MessageBox 'Datei ''%vDir%\\hardcopy.del'' kann nicht ge÷ffnet werden'
  155.    Fehler = 1
  156. EndIf
  157. vT1 = 'Uninstall Hardcopy'
  158. vT2 = 'This will remove "Hardcopy".\\nDo you wish continue ?'
  159. vT3 = 'Hardcopy removed.'
  160. If __Language__ == 'deu'
  161.    vT1 = 'Hardcopy entfernen'
  162.    vT2 = 'M÷chten Sie tatsΣchlich Hardcopy entfernen ?'
  163.    vT3 = 'Hardcopy wurde entfernt !'
  164. EndIf
  165. fputs fpDel 'CreateBackground  ''%vT1%''\n'
  166. fputs fpDel 'DialogOut         ''%vT1%''\n'
  167. fputs fpDel 'MessageBox        ''%vT2%'' 36\n'
  168. fputs fpDel 'If __error__ == 6\n'
  169. fputs fpDel '   DeleteFile     ''%vDir%\\\\HcpNTdll.Dll''\n'
  170. fputs fpDel '   DeleteFile     ''%vDir%\\\\Hardcopy.exe''\n'
  171. fputs fpDel '   DeleteFile     ''%vDir%\\\\HcpDll.Dll''\n'
  172. fputs fpDel '   DeleteFile     ''%vDir%\\\\%vReadme%.txt''\n'
  173. fputs fpDel '   rmdir          ''%vDir%''\n'
  174. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\hardcopy.del''\n'
  175. fputs fpDel '   DeleteFile     ''%%__WindowsVerzeichnis__%%\\\\hardcopy.ini''\n'
  176. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''Hardcopy''  '''' '''' '''' '''' 0 0\n'
  177. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vReadme%'' '''' '''' '''' '''' 0 0\n'
  178. fputs fpDel '   CreateItem     ''-\\\\PG\\\\%vPrgGrp%'' ''%vUninst%'' '''' '''' '''' '''' 0 0\n'
  179. fputs fpDel '   DeleteRegistry ''HKEY_LOCAL_MACHINE'' ''SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Uninstall\\\\Hardcopy'' ''''\n'
  180. fputs fpDel '   MessageBox ''%vT3%''\n'
  181. fputs fpDel 'EndIf\n'
  182. // ------------ 
  183.  
  184.  
  185. fputs fp '\nEnde\n'
  186.  
  187. If Fehler != 0
  188.    vText = '\r\nError by installation, will you see the installation-log ?'
  189.    If __Language__ == 'deu'
  190.       vText = '\r\nBei der Installation ist ein Fehler aufgetreten,\r\nsoll die Installations-Logdatei angezeigt werden ?'
  191.    EndIf
  192.    MessageBox vText 36
  193.    If __error__ == 6
  194.     Exec 'notepad %vLogFileName%'
  195.    EndIf
  196. Endif
  197.  
  198. If Fehler == 0
  199. vText = 'Setup is complete.  You may run the Hardcopy program.'
  200.    If __Language__ == 'deu'
  201.       vText = 'Die Installation ist Ok, Sie k÷nnen nun das Programm Hardcopy starten.'
  202.    Endif
  203.    MessageBox vText
  204. EndIf
  205.  
  206. fclose fp
  207.