关于将java程序打包成exe

从java刚出来时,就研究这个问题了,由于java是跨平台的,如果打包成exe,就变成了只有windows下才能使用的程序,与java的本来意愿不符。所以我一直在寻找一种既能打包,又能不破坏兼容性的方法。
网上有许多java打包工具,都能把java的class文件弄成exe,但是如果想要兼容其他的平台,那就只有自己动手写代码了。在此,我选用了Delphi对java程序进行打包,因为只有Delphi才能够直接跨平台,它与java的配合是相当默契的。经过打包的程序能同时在windows和Red Hat linux下运行。

下面给出源代码:

首先制作一个资源文件,命名为Java.rc,内容如下:
App javafile App.class
然后保存,在控制台下用Brcc32 Java.rc命令行编译
编译完成后生成一个Java.res文件,在程序中引用这个文件就相当于导入了该class文件

program JavaApp;

uses
  Registry,Classes,
  {$IFDEF MSWINDOWS}Windows{$ENDIF}
  {$IFDEF LINUX}Qt,QTypes,QStyle{$ENDIF};

{$R java.RES}
{$R *.res}

var
  {$IFDEF MSWINDOWS}Reg:TRegistry;{$ENDIF}
  Java_HOME:string;
  Java:string;
  JavaStream:TResourceStream;
begin
  {$IFDEF MSWINDOWS}
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SYSTEM\ControlSet001\Control\Session Manager\Environment',true);
  Java_HOME:=reg.ReadString('JAVA_HOME');
  Reg.Free;
  {$ELSE $IFDEF LINUX}
  Java_HOME:='Root/Bin/J2SDK';
  {$ENDIF}
  {$IFDEF MSWINDOWS}
  Java:=Java_HOME+'\Bin\Java.exe';
  {$ELSE $IFDEF LINUX}
  Java:=Java_HOME+'/Bin/Java.so';
  {$ENDIF}
  JavaStream:=TResourceStream.Create(HInstance,'App','javafile');
  JavaStream.SaveToFile('App.class');
  {$IFDEF MSWINDOWS}
  WinExec(PChar(Java+' App'),SW_Hide);
  {$ELSE $IFDEF LINUX}
  asm
    Call RH.Run(PChar(Java+' App'));
  end;
  {$ENDIF}
  JavaStream.Free;
end.

 

一切搞定,现在可以运行EXE了。如果要放到Linux下运行,只需要把EXE改成SO就行了

你可能感兴趣的:(java,linux,windows,qt,Delphi)