Java如何通过JNI与delphi交互.docVIP

前一段时间，我用java开发一个安装程序，适用于tomcat mysql构建的web环境。在开发的过程中遇到与写注册表，注册系统服务等问题用java本身很难解决，于是我想到用JNI。Ｃ与delphi两者开发JNI，我是从delphi转到java上来的，我选择了delphi。 　　用delphi开发JNI,首先从　下载JNI.pas,把它加入到工程中就可以开发JNI了。 　　例如创建桌面快捷方式: 　　Delphi中的代码: 　　library myDll 　　uses 　　JNI,windows,ComObj,ActiveX,ShlObj,SysUtils,Registry; 　　//取得桌面目录 　　function getDesktopPath():String; 　　var 　　Reg:TRegistry; 　　DesktopPath:String; 　　begin 　　Reg:=TRegistry.Create; 　　try 　　Reg.RootKey:=HKEY_CURRENT_USER; 　　Reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,False); 　　if Reg.ValueExists(Desktop) then DesktopPath:=Reg.ReadString(Desktop); 　　Result:= DesktopPath; 　　finally 　　Reg.Free; 　　end; 　　end; 　　//创建桌面快捷方式 　　procedure CreateDesktopLink(ProgramPath, ProgramArg, LinkName, Descr,IconPath: String); 　　var 　　AnObj: IUnknown; 　　ShellLink: IShellLink; 　　AFile: IPersistFile; 　　FileName: WideString; 　　LinkPath:String; 　　begin 　　LinkPath:=getDesktopPath()+\+linkName; 　　if UpperCase(ExtractFileExt(LinkPath)).LNK then //检查扩展名是否正确 　　begin 　　raise Exception.Create(快捷方式的扩展名必须是.lnk!); 　　end; 　　try 　　OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化 　　AnObj := CreateComObject(CLSID_ShellLink);//根据给定的ClassID生成一个COM对象，此处是快捷方式 　　ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口 　　AFile := AnObj as IPersistFile;//强制转换为文件接口 　　//设置快捷方式属性，此处只设置了几个常用的属性 　　ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般为可执行文件 　　ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数 　　ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录 　　ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述 　　ShellLink.SetIconLocation(PChar(IconPath),0); 　　FileName := LinkPath;//把文件名转换为WideString类型 　　AFile.Save(PWChar(FileName), False);//保存快捷方式 　　finally 　　OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用 　　end; 　　end; 　　//创建桌面快捷方式,在JNI中调用的就是这个方法 　　//这个过程的命名很有讲究，它以 Java 开头，用下划线将 Java 类的包名、类名和方法名连起来。这个命名方法不能有误，否则， Java 类将无法将 nativ 方法与它对应起来。同时，在 Win32 平台上，此过程的调用方式只能声明为 stdcall 。