運(yùn)行Java程序（SWING或SWT的桌面程序）可以直接執(zhí)行。class文件或?qū)⑺械摹lass文件及相關(guān)的其他文件壓縮成。jar文件，然后使用javaw -jar my.jar來(lái)運(yùn)行程序（其中my.jar是一個(gè)jar文件名，可以是任何指定的jar文件）。但在windows下，用戶習(xí)慣直接運(yùn)行一個(gè)exe來(lái)執(zhí)行程序。在網(wǎng)上有很多程序可以將my.jar或。class文件直接轉(zhuǎn)換成exe文件。但很多都是將jar或。class文件放到exe里成，這樣不太方便。有些工具，如javalauncher可以使用一個(gè)exe程序（用c語(yǔ)言寫的）來(lái)調(diào)用jar文件。但有時(shí)需要在運(yùn)行程序之間做些其他的工具，例如，在客戶端動(dòng)態(tài)從服務(wù)端下載最新版本的程序。因此，在本文將使用delphi2009實(shí)現(xiàn)一個(gè)簡(jiǎn)單的可以調(diào)用jar文件的程序，讀者可以對(duì)這個(gè)程序進(jìn)行任何擴(kuò)展，本文還提供了該程序的源代碼和exe文件。
使用delphi建立一個(gè)VCL工程。在本程序中不需要form，因此，可以將默認(rèn)生成的form刪除。實(shí)際上，我們只需要調(diào)用ShellExecute方法就可以通過(guò)javaw命令來(lái)執(zhí)行jar文件，代碼如下：
shellexecute(GetActiveWindow, 'open','javaw', '-jar my.jar', '', SW_NORMAL);
其中GetActiveWindow方法獲得當(dāng)前窗口的句柄。在本程序中使用了一個(gè)config.ini文件來(lái)指定要執(zhí)行的jar文件，實(shí)現(xiàn)的完整代碼如下：
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相同的目錄下建立一個(gè)config.ini文件，內(nèi)容如下：
[config]
JarFile = jars\swt.jar
其中swt.jar文件是執(zhí)行的jar文件，要放在當(dāng)前目錄的jars目錄中。現(xiàn)在的目錄結(jié)果如下：
launcher.exe
config.ini
jars\swt.jar
其中l(wèi)auncher.exe和config.ini也被包含在本文的下載文件中。讀者只需要修改config.ini文件中的相應(yīng)的jar文件名即可。也可以將launcher.exe改成其它的文件名。還有就是要修改 launcher.exe文件的圖標(biāo)，可以直接在delphi2009（低版本的delphi也可以，7.0以上）中改，也可以找一些編輯二進(jìn)制資源的程序，直接打開(kāi)launcher.exe文件，修改其中的圖標(biāo)。
當(dāng)然，本程序也可以使用任何可生成原生可執(zhí)行文件的編程語(yǔ)言開(kāi)發(fā)，如C、C++等。
OK，現(xiàn)在就可以通過(guò)雙擊launcher.exe文件來(lái)調(diào)用jar包了。要想對(duì)launcher進(jìn)行擴(kuò)展，就直接修改源代碼吧。其實(shí)這個(gè)實(shí)現(xiàn)是非常非常地簡(jiǎn)單！
使用delphi建立一個(gè)VCL工程。在本程序中不需要form，因此，可以將默認(rèn)生成的form刪除。實(shí)際上，我們只需要調(diào)用ShellExecute方法就可以通過(guò)javaw命令來(lái)執(zhí)行jar文件，代碼如下：
shellexecute(GetActiveWindow, 'open','javaw', '-jar my.jar', '', SW_NORMAL);
其中GetActiveWindow方法獲得當(dāng)前窗口的句柄。在本程序中使用了一個(gè)config.ini文件來(lái)指定要執(zhí)行的jar文件，實(shí)現(xiàn)的完整代碼如下：
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相同的目錄下建立一個(gè)config.ini文件，內(nèi)容如下：
[config]
JarFile = jars\swt.jar
其中swt.jar文件是執(zhí)行的jar文件，要放在當(dāng)前目錄的jars目錄中。現(xiàn)在的目錄結(jié)果如下：
launcher.exe
config.ini
jars\swt.jar
其中l(wèi)auncher.exe和config.ini也被包含在本文的下載文件中。讀者只需要修改config.ini文件中的相應(yīng)的jar文件名即可。也可以將launcher.exe改成其它的文件名。還有就是要修改 launcher.exe文件的圖標(biāo)，可以直接在delphi2009（低版本的delphi也可以，7.0以上）中改，也可以找一些編輯二進(jìn)制資源的程序，直接打開(kāi)launcher.exe文件，修改其中的圖標(biāo)。
當(dāng)然，本程序也可以使用任何可生成原生可執(zhí)行文件的編程語(yǔ)言開(kāi)發(fā)，如C、C++等。
OK，現(xiàn)在就可以通過(guò)雙擊launcher.exe文件來(lái)調(diào)用jar包了。要想對(duì)launcher進(jìn)行擴(kuò)展，就直接修改源代碼吧。其實(shí)這個(gè)實(shí)現(xiàn)是非常非常地簡(jiǎn)單！
