注册表操作

1 判断是否有键值（默认）
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;