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

//取得桌面目錄

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');

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