+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إضافة قيم reg_expand_sz في الرجستري بدلفي (/showthread.php?tid=5667)
إضافة قيم reg_expand_sz في الرجستري بدلفي - delphi-kid - 23-10-2013
السلام عليكم / صباح الخير جميعا
لم استطع معرفه اضافة قيمه "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'
إضافة قيم reg_expand_sz في الرجستري بدلفي - محمد عبد العزيز - 23-10-2013
كود :
uses
windows,registry;إضافة قيم reg_expand_sz في الرجستري بدلفي - delphi-kid - 23-10-2013
شكرا لك .
ممكن طريقة لأجل أضيف قيمه من نوع 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.
إضافة قيم reg_expand_sz في الرجستري بدلفي - delphi-kid - 24-10-2013
لإضافه قيمه من نوع REG_EXPAND_SZ نستخدم R.WriteEXpandstringبدل R.WriteString
شكرا لكم .