قراءة قيمة DefaultInstance للفيربيرد firebird في المسار

[mobile]

السلام عليكم ورحمة الله
لم افلح في قراءة قيمة DefaultInstance للفيربيرد في المسار
[HKEY_LOCAL_MACHINE\SOFTWARE\Firebird Project\Firebird Server\Instances]

استعملت هذا الكود :

كود :

try reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Firebird Project\Firebird Server\Instances',False); edit1.Text:=reg.ReadString('DefaultInstance'); finally reg.free; end;

هل قراءة القيمة محمية ام ماذا بارك الله فيكم

[mobile]

السلام عليكم ورحمة الله
الحل

كود :

http://stackoverflow.com/questions/8864595/failed-to-read-win-registry-firebird-key-using-delphi