【賽迪網(wǎng)技術(shù)社區(qū)整理】

　　前一段時間，我用java開發(fā)一個安裝程序，適用于tomcat mysql構(gòu)建的web環(huán)境。在開發(fā)的過程中遇到與寫注冊表，注冊系統(tǒng)服務(wù)等問題用java本身很難解決，于是我想到用JNI。Ｃ與delphi兩者開發(fā)JNI，我是從delphi轉(zhuǎn)到j(luò)ava上來的，我選擇了delphi。

　　用delphi開發(fā)JNI,首先從http://delphi-jedi.org　下載JNI.pas,把它加入到工程中就可以開發(fā)JNI了。

　　例如創(chuàng)建桌面快捷方式:

　　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;

　　//創(chuàng)建桌面快捷方式

　　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函數(shù)前必須調(diào)用初始化

　　AnObj := CreateComObject(CLSID_ShellLink);//根據(jù)給定的ClassID生成一個COM對象，此處是快捷方式

　　ShellLink := AnObj as IShellLink;//強制轉(zhuǎn)換為快捷方式接口

　　AFile := AnObj as IPersistFile;//強制轉(zhuǎn)換為文件接口

　　//設(shè)置快捷方式屬性，此處只設(shè)置了幾個常用的屬性

　　ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目標文件，一般為可執(zhí)行文件
　
　　ShellLink.SetArguments(PChar(ProgramArg));// 目標文件參數(shù)

　　ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目標文件的工作目錄

　　ShellLink.SetDescription(PChar(Descr));// 對目標文件的描述

　　ShellLink.SetIconLocation(PChar(IconPath),0);

　　FileName := LinkPath;//把文件名轉(zhuǎn)換為WideString類型

　　AFile.Save(PWChar(FileName), False);//保存快捷方式

　　finally

　　OleUninitialize;//關(guān)閉OLE庫，此函數(shù)必須與OleInitialize成對調(diào)用

　　end;

　　end;

　　//創(chuàng)建桌面快捷方式,在JNI中調(diào)用的就是這個方法

　　//這個過程的命名很有講究，它以 Java 開頭，用下劃線將 Java 類的包名、類名和方法名連起來。這個命名方法不能有誤，否則， Java 類將無法將 nativ 方法與它對應(yīng)起來。同時，在 Win32 平臺上，此過程的調(diào)用方式只能聲明為 stdcall 。

　　procedure Java_com_wpd_JavaWindows_createDesktopLink(PEnv: PJNIEnv; Obj: JObject;ProgramPath,ProgramArg,LinkName,Descr,iconPath:JString);stdcall;

　　var

　　JVM:TJNIEnv;

　　PPath:String;

　　PArg:String;

　　LName:String;

　　Description:String;

　　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;

　　end;

　　//向java發(fā)送一個信息

　　function Java_com_wpd_JavaWindows_sendMessage(PEnv: PJNIEnv; Obj: JObject):JObject;stdcall;

　　var

　　JVM:TJNIEnv;

　　msg:JObject;

　　m:String;

　　begin

　　JVM := TJNIEnv.Create(PEnv);

　　　　　　//*********如果發(fā)送的信息中包含中文字符，則要先要經(jīng)過UTF8Encode轉(zhuǎn)碼,否則在java中取得時會是亂碼

　　m:=UTF8Encode('中國人');

　　msg:=JVM.StringToJString(PChar(m));

　　result:= msg;

　　end;

　　{$R *.res}

　　exports

　　Java_com_wpd_JavaWindows_createDesktopLink,

　　Java_com_wpd_JavaWindows_sendMessage;

　　end.

　　把上面的編譯生成myDll.dll文件，放到j(luò)ava能夠找到的地方。

　　java中的代碼:

　　package com.wpd;

　　public class JavaWindows {

　　public native void createDesktopLink(String programPath,String programArg,String linkPath,String description,String iconPath);

　　public native String sendMessage();

　　static{

　　System.loadLibrary("myDll");

　　}

　　public static void main(String s[]){

　　new JavaWindows().createDesktopLink("c:\text.exe","","測試.LNK","","c:\test.ico");

　　System.out.println(new JavaWindows().sendMessage());

　　}

　　}