怎样叛断注册表中HKEY_CURRENT_USER根下Software\Mysoft目录是否存在？

Question

如题！

Answer 1

if Reg.OpenKey('HKEY_CURRENT_USER\Software\Mysoft')= true then

Answer 2

if Reg.OpenKey(keyname,False) then...
这里的False是说明什么？

Answer 3

如果不存在,就不创建!
为true表示不存在时就自动创建!

Answer 4

怎样叛断注册表中HKEY_CURRENT_USER根下Software\Mysoft目录是否存在？
用if Reg.OpenKey('HKEY_CURRENT_USER\Software\Mysoft')= true then
是错的，提示：[Error] Unit1.pas(104): Not enough actual parameters

Answer 5

if Reg.OpenKey('HKEY_CURRENT_USER\Software\Mysoft')= true then showmessage('存在')
  else showmessage('不存在');

Answer 6

ValueExists怎么用，系统提示：[Error] Unit1.pas(106): Undeclared identifier: 'ValueExists'，但在USES中加了Registry

Answer 7

reg.root:=HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Mysoft')= true then showmessage('存在')

Answer 8

应该为：
reg.root:=HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Mysoft',false)= true then showmessage('存在')

Answer 9

if OpenKey('Software\Mysoft',True) then
   begin
   end;

Answer 10

ValueExists:procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRegistry;
begin
  r := Tregistry.Create;
  r.OpenKey('Software\Microsoft\Windows NT\CurrentVersion\Windows', False);
  if r.ValueExists('DebugOptions') then
    ShowMessage('Exists DebugOptions');
  r.Free;
end;