delphi调用java代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,jni;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  vm_args: Jni.JavaVMInitArgs;
  options: array[0..2] of Jni.JavaVMOption;
  jvm: Jni.PJavaVM;
  env: Jni.PJNIEnv;
  rec: Integer;
  cid: Jni.JClass;
  mid: Jni.JMethodID;
  tmp: Jni.JString;
  tenv: Jni.TJNIEnv;
begin
  options[0].optionString := '-Djava.compiler=NONE';
  options[1].optionString := '-Djava.class.path=.;C:\Documents and Settings\Administrator\桌面\1111';
 // options[1].optionString := '-Djava.class.path=.;C:\Documents and Settings\Administrator\桌