delphi4arab منتديات دلفي للعرب

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

كيف يمكننا الكتابة على (افتراضي) او (default) في الرجستري

حيث ان :

PHP كود :
var
reg:TRegistry;
Begin
reg:=TRegistry.Create;
reg.rootkey:=HKEY_CURRENT_USER;
try
reg.Createkey('Software\CC);
finally
reg.Free
end; 

الذي ارغب بفعله هو الكتابة على القيمة الافتراضية ..

وجزاكم الله كل خير

و عليكم السلام
تفضل

PHP كود :
var
  reg: TRegistry;
Begin
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('SOFTWARECC', true);
    reg.WriteString('', 'Data');
  finally
    reg.Free;

  end;

end; 

كتاب سهل جداا يشرح التعامل مع الريجستري
من الصفر الى الاحتراف

كود :
http://www.kutub.info/library/book/1792

السلام عليكم ملاحظة بسيطة جملة الـ try/finally/end تكتب من هاذا الشكل

PHP كود :
MyClass := TComponent.Create(Self);
  try
    // Code !!!
  finally
    MyClass.Free;
  end; 

تنشئ الغرض خارج try و كل ما يتعلق بالغرض بين try/fimally و هو المعتاد في الدلفي
و السلام عليكم و رحمة الله

مشكورين جميعاً لكن الحل يكمن في هذا

PHP كود :
Writestring('', 'Ser'); 

ومن ثم

PHP كود :
CloseKey; 

هكذا لايضيف قيمة بدون اسم بل يضيف داخل الافتراضي

M_Mori2010

SMP3

mariio

S.FATEH

M_Mori2010