home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 September / Chip_2004-09_cd1.bin / software / pp / setup.exe / ppsee.vbs < prev    next >
Text File  |  2004-05-04  |  3KB  |  68 lines
  1. ' ===================================================================
  2. ' runJ4Win.vbs version 0.91 - general starting script 
  3. ' for a Java application on MS Windows 98, ME, 2000, XP, 95+WSH, NT+WSH.
  4. ' 
  5. ' Copyright (C) 1993 Pavel Ponec, e-mail:ppsee@centrum.cz
  6. ' Home Page: http://ppsee.wz.cz/runj4/index.htm
  7. ' 
  8. ' This program is free software; you can redistribute it and/or modify
  9. ' it under the terms of the GNU General Public License as published by
  10. ' the Free Software Foundation version 2 of the License.
  11. ' This program is distributed in the hope that it will be useful,
  12. ' but WITHOUT ANY WARRANTY.
  13. ' Please read bin/license-gpl.txt for the full details. A copy of the GPL may 
  14. ' be found at http://www.gnu.org/licenses/gpl.txt .
  15. '
  16. ' A History:
  17. ' rel. 0.92  - 2003/11/30 - The first public version
  18. ' rel. 0.92b - 2004/02/18 - Modified for PPSee java program
  19. '
  20. ' Usage: wscript ppsee.vbs 
  21. ' ===================================================================
  22.  
  23. ' Modify path to file "javaw.exe" in case you can't run the application.
  24. java = "C:\Program Files\Java\j2re1.4.2_03\bin\javaw.exe" 
  25.  
  26. ' Maximal Memory Alocation:
  27. parameter = "-Xmx128m"
  28.  
  29. ' Java Archive:
  30. jarName = "bin\PPSee.jar"
  31.  
  32. ' Default Image Editor Path:
  33. imageEdit = ""
  34.  
  35. ' === CORE: ===
  36. set shell = WScript.CreateObject("Wscript.Shell")
  37. set fso   = WScript.CreateObject("Scripting.FileSystemObject")
  38. javax = java
  39. if not fso.FileExists(javax) then
  40.   jreg  = "HKLM\Software\JavaSoft\Java Runtime Environment\"
  41.   javax = shell.RegRead(jreg & "CurrentVersion")
  42.   javax = shell.RegRead(jreg & javax & "\JavaHome") & "\bin\javaw.exe"
  43.   if not fso.FileExists(javax) then
  44.     Wscript.Echo "ERROR in runJ4Win script:" & vbCrLf &  "File """ & java & """ was not found!" & vbCrLf &  "Try to modify a ""java"" variable in the current script."
  45.     WScript.Quit(1)
  46.   end if
  47. end if
  48. ' HTML Viewer
  49. htmlView = "HKLM\SOFTWARE\Classes\HTTP\shell\open\command\"
  50. htmlView = shell.RegRead(htmlView)
  51. htmlView = Replace (htmlView , """", "'")
  52. ' htmlView = Left(htmlView, InstrRev(htmlView, " "))
  53. imageEdit = Replace (imageEdit, """", "'")
  54. parameter = parameter & " " & "-DhtmlView=""" & htmlView & """ -DimageEdit=""" & imageEdit & """"
  55. ' User Parameters:
  56. paru = ""
  57. Set args = Wscript.Arguments
  58. For i = 0 to args.Count-1
  59.    paru = paru & " " & args(i) 
  60. Next
  61. path = WScript.ScriptFullName
  62. path = Left(path, InstrRev(path, "\"))
  63. param = """" & javax & """ " & parameter & " -jar """ & path & jarName & """" & paru
  64. shell.Run(param) 
  65. ' === EOF ===
  66.  
  67.  
  68.