編程應用實例：Java通過JNI與Delphi交互

IPath:String;

begin

JVM := TJNIEnv.Create(PEnv);

PPath:=JVM.UnicodeJStringToString(ProgramPath);

PArg:=JVM.UnicodeJStringToString(ProgramArg);

LName:=JVM.UnicodeJStringToString(LinkName);

Description:=JVM.UnicodeJStringToString(Descr);

IPath:=JVM.UnicodeJStringToString(IconPath);

CreateDesktopLink(PPath,PArg,LName,Description,IPath);

JVM.Free;

文章來源于領測軟件測試網 http://www.kjueaiud.com/