本帖轉自
http://blog.csdn.net/nokiaguy/archive/2009/04/15/4684693.aspx
launcher下载
运行Java
程序(
SWING
或
SWT
的桌面程序)可以直接执行
.class
文件或将所有的
.class
文件及相关的其他文件压缩成
.jar
文件,然后使 用
javaw -jar my.jar
来运行程序(其中
my.jar
是一个
jar
文件名,可以是任何指定的
jar
文件)。但在
windows
下,用户习惯直接运行一个
exe
来执行 程序。在网上有很多程序可以将
my.jar
或
.class
文件直接转换成
exe
文件。但很多都是将
jar
或
.class
文件放到
exe
里成,这样不太方 便。有些工具,如
javalauncher
可以使用一个
exe
程序(用
c
语言写的)来调用
jar
文件。但有时需要在运行程序之间做些其他的工具,例如,在 客户端动态从服务端下载最新版本的程序。因此,在本文将使用
delphi2009
实现一个简单的可以调用
jar
文件的程序,读者可以对这个程序进行任何扩 展,本文还提供了该程序的源代码和
exe
文件。
使用delphi
建立一个
VCL
工程。在本程序中不需要
form
,因此,可以将默认生成的
form
删除。实际上,我们只需要调用
ShellExecute
方法就可以通过
javaw
命令来执行
jar
文件,代码如下:
shellexecute(GetActiveWindow, 'open','javaw', '-jar my.jar', '', SW_NORMAL);
其中GetActiveWindow
方法获得当前窗口的句柄。在本程序中使用了一个
config.ini
文件来指定要执行的
jar
文件,实现的完整代码如 下:
program launcher;
uses
Forms,
windows,shellapi, inifiles, sysUtils;
{$R *.res}
var
ini: tinifile;
JarFile: String;
begin
Application.Initialize;
ini := tinifile.Create(extractfilepath(application.ExeName) + 'config.ini');
JarFile := ini.ReadString('config', 'JarFile', '');
shellexecute(GetActiveWindow, 'open','javaw', PWideChar('-jar ' + JarFile), '', SW_NORMAL);
ini.Free;
Application.Run;
end.
在和exe
相同的目录下建立一个
config.ini
文件,内容如下:
[config]
JarFile = jars/swt.jar
其中swt.jar
文件是执行的
jar
文件,要放在当前目录的
jars
目录中。现在的目录结果如下:
launcher.exe
config.ini
jars/swt.jar
其中launcher.exe
和
config.ini
也被包含在本文的下载文件中。读者只需要修改
config.ini
文件中的相应的
jar
文件名即可。 也可以将
launcher.exe
改成其它的文件名。还有就是要修改
launcher.exe
文件的图标,可以直接在
delphi2009
(低版本的
delphi
也可以,最好
7.0
以上)中改
,
也可以找一些编辑二进制资源的程序,直接打开
launcher.exe
文件,修改其中的图标。
当然,本程序也可以使用任何可生成原生可执行文件的编程语言开发,如C
、
C++
等。
OK,现在就可以通过双击
launcher.exe
文件来调用
jar
包了。要想对
launcher
进行扩展,就直接修改源代码吧。其实这个实现是非常非常 地简单!!!