إضافة قيم reg_expand_sz في الرجستري بدلفي

[delphi-kid]

السلام عليكم / صباح الخير جميعا
لم استطع معرفه اضافة قيمه "reg_expand_sz" بالدلفي
استخدمت الكود هذا

PHP كود :

uses
  registry;
function WriteToReg(key:Hkey; subkey,name,value:string):boolean;
var
regkey:hkey;
begin
  result := false;
  RegCreateKey(key,PChar(subkey),regkey);
  if RegSetValueEx(regkey,Pchar(name),0,REG_EXPAND_SZ,pchar(value),length(value)) = 0 then
    result := true;
  RegCloseKey(regkey);
end;
end. 


وعطاني أخطاء

PHP كود :

[Error] Project2.dpr(9): Undeclared identifier: 'Hkey'
[Error] Project2.dpr(14): Undeclared identifier: 'RegCreateKey'
[Warning] Project2.dpr(14): Unsafe type 'PChar'
[Error] Project2.dpr(15): Undeclared identifier: 'RegSetValueEx'
[Warning] Project2.dpr(15): Unsafe type 'PChar'
[Error] Project2.dpr(15): Undeclared identifier: 'REG_EXPAND_SZ'
[Warning] Project2.dpr(15): Unsafe type 'PChar'
[Warning] Project2.dpr(15): Comparing signed and unsigned types - widened both operands
[Error] Project2.dpr(17): Undeclared identifier: 'RegCloseKey' 


[محمد عبد العزيز]

كود :

uses windows,registry;

[delphi-kid]

شكرا لك .
ممكن طريقة لأجل أضيف قيمه من نوع reg_expand_sz

PHP كود :

begin

  R := TRegistry.Create;
  r.RootKey := HKEY_LOCAL_MACHINE;
  try
    if not R.OpenKey('software\Myvalue', True) then
      RaiseLastOSError;
    R.WriteString('ValueName', 'value');
    R.WriteString('ther Value Name'  ,'Some other value');
  finally R.Free;
  end;
end. 


[delphi-kid]

لإضافه قيمه من نوع REG_EXPAND_SZ نستخدم R.WriteEXpandstringبدل R.WriteString
شكرا لكم .