چک کردن یک گزینه در Regedit ( وجود دارد یا نه )

[راحله سعادتی]

چک کردن یک گزینه در Regedit ( وجود دارد یا نه )
به عکس نگاه کنید خوب متوجه میشوید

http://www.rahele.persiangig.com/Image_test/Regedit%20Exist%20Key.JPG

[m-khorsandi]

http://www.barnamenevis.org/forum/showthread.php?t=40075

از


TRegistry.ValueExists('Test');

استفاده کنید.

[راحله سعادتی]

http://www.barnamenevis.org/forum/showthread.php?t=40075

از


TRegistry.ValueExists('Test');

استفاده کنید.
من این کد را مینویسم
در اصل باید پیغام Yes را بده اما نمیده


procedure TFrmMain.Button1Click(Sender: TObject);
Var
Reg : TRegistry ;
Begin
Reg := TRegistry.Create ;
Reg.RootKey := HKEY_LOCAL_MACHINE ;
Reg.OpenKey('HKEY_CURRENT_USER\Control Panel\International',True) ;
if Reg.ValueExists('iNegCurr')= True then
ShowMessage('Yes') ;

Reg.CloseKey ;
Reg.Free ;
end;

[Ehsansh]

در OpenKey یه تجدید نظر کوچیک بکنید مشکل حله.
مثل این کد:


procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\Console',False);
if Reg.ValueExists('ColorTable00') then
ShowMessage('YES');
end;