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;
页:
[1]