مشکل خواندن از ریجستری در ویندوز 7

[mosafer_deltang]

سلام به اساتید محترم
کد زیر در xp کار میکنه و مقدار متغیر X که تو ریجستری هست در متغیر X برنامه قرار میگیره ولی توی ویندوز 7 هیچی توی X نمیره
مشکل چیه؟
ممنون

Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Key1 := '\SOFTWARE\MyKey';
Reg.OpenKey(Key1, False);
X := Reg.ReadString('X');

[BORHAN TEC]

احتمالاً x وجود نداره و یا مقداری خالی داره.

[Mask]

میتونید از این تابع برای راحتی کار استفاده کنید.


function GetRegStr(Root:HKEY;Key,Value:string):string;
var R:TRegistry;
begin
try
R:=TRegistry.Create;
try
R.RootKey:=Root;
if R.KeyExists(Key) then
begin
R.OpenKey(Key,false);
if R.ValueExists(Value) then
Result:=R.ReadString(Value)
else
Result:='';
end else
Result:='';
finally
R.CloseKey;
R.Free
end;
except
Result:='';
end;
end;

[mosafer_deltang]

احتمالاً x وجود نداره و یا مقداری خالی داره.
نه
هم وجود داره و هم مقدار داره

[سعید صابری]

شاید هم مشکل دسترسی داشته باشه

[mosafer_deltang]

میتونید از این تابع برای راحتی کار استفاده کنید.


function GetRegStr(Root:HKEY;Key,Value:string):string;
var R:TRegistry;
begin
try
R:=TRegistry.Create;
try
R.RootKey:=Root;
if R.KeyExists(Key) then
begin
R.OpenKey(Key,false);
if R.ValueExists(Value) then
Result:=R.ReadString(Value)
else
Result:='';
end else
Result:='';
finally
R.CloseKey;
R.Free
end;
except
Result:='';
end;
end;
ممنون
این تابع هم دقیقا همون کار رو میکنه
امتحانش کردم باز هم مقدار X خالیه
عجیبه چرا تو xp مقدار رو برمیگردونه ولی توی ویندوز7 مقدارش خالیه؟

قبلا هم غیر از این مورد مشکل کار با ریجستری توی سون داشتم مثلا برای این که برنامه هنگام شروع ویندوز خودکار اجرا بشه توی مسیر زیر یک value ایجاد میکنیم و آدرس برنامه روتوش میریزیم
\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

ولی این کار هم، توی xp جواب میداد ولی توی سون جواب نمیداد

[mosafer_deltang]

شاید هم مشکل دسترسی داشته باشه

دسترسی رو برای Everyone روی full control گذاشتم باز هم فایده نداشت

[Felony]

به جای Local Machine داده هات رو در Current User بنویس و بخون ؛ برای Local Machine نیاز به دسترسی Admin هست .

[mosafer_deltang]

درست شد
ممنون