注册表 ReadBool类型和 ReadInteger 的关系 function TRegistry.ReadBool(const Name: string): Boolean; begin Result := ReadInteger(Name) <> 0; end;