T thebluehouse Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-04 #1 怎样一打开程序就检查注册表某个主键(左边)下是否有某个子键(右边)?或某个子键(右边)是否有某个值?举例说明,45分
完 完颜康 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-04 #2 function KeyExists(const Key: String): Boolean; 不用多说了吧
小 小黄鱼 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-04 #4 var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/RunOnce', True) then begin if Reg.HasSubKeys then showmessage(存在子健); Reg.CloseKey; end; finally Reg.Free; inherited; end; end;
var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/RunOnce', True) then begin if Reg.HasSubKeys then showmessage(存在子健); Reg.CloseKey; end; finally Reg.Free; inherited; end; end;
完 完颜康 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-04 #6 procedure TForm1.Button2Click(Sender: TObject); var Reg: TRegistry; begin reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if reg.KeyExists('Enum') then showmessage('此key存在') else showmessage('此key不存在'); reg.Free; end;
procedure TForm1.Button2Click(Sender: TObject); var Reg: TRegistry; begin reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if reg.KeyExists('Enum') then showmessage('此key存在') else showmessage('此key不存在'); reg.Free; end;