如何将java和JRE打包生成绿色版程序

首要有必要了解一下java.exe 如何寻找JRE库的:

当在控制台执行java.exe， *** 作系统寻找JRE的方式如下：

1) 先找当前目录下有没有JRE

2)再找父目录下有没有JRE

3)接着在PATH路径中找JRE

4)注册表HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\ 查看CurrentVersion的键值指向哪个JRE

2.JRE类库查找

JRE自带的基础类库主要是JRE\lib\rt.jar这个文件，包括了Java2平台标准版的所有类库。和JRE的版本一致。

JRE中由ClassLoader负责查找和加载程序引用到的类库，基础类库ClassLoader会到rt.jar中自动加载，其它的类库，ClassLoader在环境变量CLASSPATH指定的路径中搜索，按照先来先到的原则，放在CLASSPATH前面的类库先被搜到，Java程序启动之前建议先把PATH和CLASSPATH环境变量设好，OS通过PATH来找JRE，确定基础类库rt.jar的位置，JRE的ClassLoader通过CLASSPATH找其它类库。但有时候会出现这样的情况，希望替换基础类库中的类库，那么也可以简单的通过-Djava.endrosed.path=...参数传递给java.exe，于是ClassLoader会先于基础类库使用java.endrosed.path参数指定路径的类库。因此Java的版本管理是非常简单有效的，也许很原始，不过很好用，简单就不容易出错。

3.Java的虚拟机启动和加载类库

在Console执行java.exe xxx命令以后，如前所述的寻找JRE，OS找到JRE目录，根据java.exe的传递参数，选择加载Server版的jvm.dll还是Client版的jvm.dll，然后加载jvm.dll，把控制权交给jvm.dll。

接下来，jvm.dll进行初始化，分配内存等等动作，然后在CLASSPATH路径中寻找class，找到class以后，寻找class中的程序入口点Main函数，然后从Main函数执行程序，在执行过程中，使用ClassLoader动态加载一系列引用到的类。当调用到native方法时，jvm.dll告诉OS在JRE\bin目录下寻找某某DLL文件，调入内存，于是实现了JNI调用。

以下以三个例子，说明如何打包JRE和第三方类库，根据需求综合来使用就可以了：

一、

1.首先将程序打包（这一步可以通过eclipse的导出完成）。

2.为项目添加第三方jar包。在第1步打好的jar包的同级目录下，新建一个lib（名字可以自取）文件夹。用winrar等解压文件打开第1步做好的jar包，到META-INF目录下，打开MANIFEST.MF文件，修改它：在Main-Class上面一行加上：Class-Path:lib/1.jar lib/2.jar其中lib是刚才我们建的文件夹名，1.jar和2.jar是我们需要的第三方包，每两个第三方包之间由空格分开。

3.在第1步打好的jar包的同级目录下，新建一个jre文件夹，把jre运行环境考贝到这里面来。

4.在第1步打好的jar包的同级目录下，新建一个文本文档，加上下面的语句：start jre/bin/javaw -jar HydraKyouFeng_v0.2s_swt.jar

这表示通过同级目录里面jre文件夹下的javaw -jar来运行我们的jar包（也就是第1步打好的jar包，我这里的名字是HydraKyouFeng_v0.2s_swt）。

5.到了这一步，我们双击jar包已经能在原本没有jre环境平台里面直接运行了。

二、

运行实现希望目的目录结构(以test目录为例):

test 存项目java文件生成的.class,.jar 等文件.

test/jre/bin 复制对就jdk中的 bin目录就可以。

test/jre/lib 复制对就jdk中的 jre/lib 目录就可以。

建立以上目录结果之后就可以将test/jre/bin/java.exe 发送到桌面快捷方式。

然后修改一下那快捷快方式 目标(T)标位 改成 ...../test/jre/bin/java.exe test ,

这里要注意的是 起始位置(S) 一起在改一下！如下：...../test/ 。

随后使用javaw.exe启动。

三、

1、先创建一个manifest.mf的文件，内容为

Main-Class: ExcelCount(class类路径，我的为与manifest.mf相同路径)换行

2、将程序中要导入的jar包解压，放到相同目录中，我的为org文件夹

3、运行cmd,输入如下

jar cvfm ExcelCount.jar manifest.mf ExcelCount.class ExcelCount$1.class OpenListener.class org

其中ExcelCount.jar为将要生成的jar文件，三个.class文件是要打包的文件，org即为引入jar包所在文件即可生成可执行jar包

4、运行jar文件

jar文件可以在安装jdk的机器上直接运行，启动cmd命令，输入java -jar jar文件路径，也可以运行与没有安装jdk的机器上，不过要将jdk安装后目录下的jre文件，我的为D:\java\jdk1.6.0_3\jre，全部复制到jar文件所在目录下，再新建一个名为run.bat的文件，run.bat文件的内容为

start jre\bin\javaw -jar jar文件名

我的此文件内容为

start jre\bin\javaw -jar ExcelCount.jar

以后再没有安装jdk的机器上只要运行run.bat文件就可以了

我转个帖子给楼主，希望能对这个问题有点帮助～～！

实现“绿色”软件(影子版主)

现在非常流行“绿色”软件，不需要什么安装程序只要一个 EXE 文件就可以运行程序

了，而在 VB 的编程中有许多地方需要调用第三方的控件（很难用 API 函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL 文件或其他文件打包进去了，那么在 VB 中怎么用变通的方法实现“绿色”软件呢，请看：

示例：

1、主程序.EXE

用 VB6.0 编写的程序，调用了 Winsock 控件，如果在没有安装 VB5.0、6.0 的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用 VB5.0、6.0 的安装程序进行打包，不然只有用用2的方法来解决了。

2、注册程序.EXE

用 VB6.0 编写的程序，使用资源文件的方法，把 Winsock 控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过 API 函数 GetSystemDirectory 取得系统的 Winddows\System 的目录，然后把 Winsock 控件复制到该目录下，并用 Shell 来完成控件的注册。

⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：\Winddows\System\Mswinsck.ocx），再双击刚刚创建的自定义资源，d出”编辑属性”窗口，定义如下：

类型： “OCX”

标识号： 101

语言： 中文（中国）

⑶保存资源文件，写如下代码：

Option Explicit

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Const MAX_PATH = 260 '定义足够长的字符串

Private Sub Form_Load()

Dim TempFile() As Byte

Dim FileNum As Integer

Dim TempDir As String

TempDir = GetWinSysDir '自定义函数取得系统的 Winddows\System 的目录

TempFile = LoadResData(101, "OCX") '用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组

FileNum = FreeFile

Open TempDir & "\Mswinsck.ocx" For Binary Access Write As #FileNum '新建文件(把 Winsock 控件复制到指定目录下)

Put #FileNum, , TempFile

Close #FileNum

'Shell "regsvr32 " & TempDir & "\Mswinsck.ocx ", vbNormalFocus '注册控件,有d出对话框

Shell "regsvr32 " & TempDir & "\Mswinsck.ocx /s", vbNormalFocus '注册控件,无d出对话框

MsgBox "注册成功，现在本程序可正常运行了！！", vbOKOnly, "注册控件"

Unload Me

End Sub

Public Function GetWinSysDir() '定义读取Winddows\System 的所在目录的函数

Dim S As String, Length As Long

S = String(MAX_PATH, 0) '赋值

Length = GetSystemDirectory(S, MAX_PATH) 'S为取得目录，MAX_PATH 为长度

S = Left(S, InStr(S, Chr(0)) - 1) '去掉多余的空格

GetWinSysDir = S

End Function

'补充：S 和 MAX_PATH 的值是可以随便赋的，

'如: Dim S As String * 20

' Length = GetSystemDirectory(S, 20)

3、补充说明

在用 VB6.0 保存上述两个程序后，请再使用 VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用 VB5.0 编译的程序，在 Win98、2000 下不需要任何 DLL 文件）

程序运行

4、程序运行

将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的“绿色”软件就完成了。

---