DELPHI注册表操作

雨过天晴

判断是否有键值（默认）
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\RegisterFlags', False);
  if not Reg.ValueExists('Useid') then
     Reg.WriteInteger('UseId', 0);
     UseId := Reg.ReadInteger('Useid');
     Reg.free;
end;