كيف احذف مجلد في الرجيستري ؟

[أحمد 13]

السلام عليكم

كيف احذف مجلد في الرجيستري ؟ علما هذا المسار :
[HKEY_LOCAL_MACHINE\SOFTWARE\Sony Creative Software\Shared Information]
و انا او حذف المجلد الاخير من المسار اي يصبح المسار النهائي هكذا
[HKEY_LOCAL_MACHINE\SOFTWARE\Sony Creative Software\Shared Information\User Information]
جربت مع هذا الامر و لم يعمل معي ؟

PHP كود :

var
reg: Tregistry;
begin
 reg:= Tregistry.Create;
 reg.RootKey:= HKEY_LOCAL_MACHINE;
  try
 reg.DeleteKey ('User Information');
 if reg.DeleteKeySOFTWARE\Sony Creative Software\Shared Information') then
 showmessage(' تم الحذف بنجاح ')
 else
 showmessage('!لاتوجد اي بيانات على جهازكم') ;
 except
     end;
    end; 


[ferrero]

var
Reg: TRegistry;
S: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
S := 'Software\Sony Creative Software\Shared Information';
Reg.OpenKey(S, False);
if Reg.DeleteKey('User Information') then
ShowMessage('تم الحذف بنجاح')
else
ShowMessage('!لاتوجد اي بيانات على جهازكم');
end;

[أحمد 13]

بارك الله فيك اخي ، و لكن للاسف امر الحذف لم يعمي معي ؟
اين هو المشكل ؟ جربت كذا مرة و لم يعمل فهل من كود اخر ؟ و جزاكم الله خيرا

[ferrero]

ماهو نظام التشغيل الذي تستخدمه

[أحمد 13]

ماهو نظام التشغيل الذي تستخدمه

نظام تشغيل ويندوز 7 نواة 32 بت
و بارك الله فيك اخي الفاضل

[ferrero]

var
reg: Tregistry;
s: String;
begin
reg := tregistry.create;
Reg.Access := KEY_WOW64_32KEY or KEY_WRITE; // جرب اضف هذا الكود هنا
reg.rootkey := hkey_local_machine;
s := 'software\sony creative software\shared information';
reg.openkey(s, false);
if reg.deletekey('user information') then
showmessage('تم الحذف بنجاح')
else
showmessage('!لاتوجد اي بيانات على جهازكم');
end;

[أحمد 13]

استاذي الفاضل ارجوا ان تتحملني من فضلك فللأأسف لم استطع من تنفيذ الكود و تظهر لي الرسالة الاتية

كود :

http://im51.gulfup.com/vdmM2i.png

الكود ما قبل الاخير أظن هو صحيح الكود و لكن لا يستجيب لم افهم لما ؟
للتذكير : هذا المسار كاملا و أود حذف المجلد الملون بلأحمر
HKEY_LOCAL_MACHINE\SOFTWARE\Sony Creative Software\Shared Information\User Information

[Houdini]

كود صحيح مشكله فقط شغل برنامج ناتج ك ادمين uac admin لانك تتاعمل هنا مع HKEY_LOCAL_MACHINE

[أحمد 13]

الان عمل تمام
بعد تشغيل البرنامج كمسؤول , بارك الله فيكما و جزاكما الله عني كل خير