{****************************************************************************** TRegistry ****************************************************************************** ***************************************************************************** * * * This file is part of the Lazarus Component Library (LCL) * * * * See the file COPYING.LCL, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * * ***************************************************************************** } {------------------------------------------------------------------------------ Method: TRegistry.Create Params: None Returns: Nothing Constructor for the class. ------------------------------------------------------------------------------} constructor TRegistry.Create; begin inherited Create; end; {------------------------------------------------------------------------------ Method: TRegistry.Destroy Params: None Returns: Nothing Destructor for the class. ------------------------------------------------------------------------------} destructor TRegistry.Destroy; begin inherited Destroy; end; {------------------------------------------------------------------------------ Function: TRegistry.CreateKey Params: Key: String key to create Returns: Boolean containing result of the create. True if it succeeded. Create a registry key. ------------------------------------------------------------------------------} function TRegistry.CreateKey(const Key: String): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.DeleteKey Params: Key: String key to create Returns: Boolean containing result of the delete. True if it succeeded. Delete a registry key. ------------------------------------------------------------------------------} function TRegistry.DeleteKey(const Key: String): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.DeleteValue Params: Name: Name of key of which to delete its value Returns: Boolean containing result of the function. True if it succeeded. Delete the value for a registry key. ------------------------------------------------------------------------------} function TRegistry.DeleteValue(const Name: String): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.GetBaseKey Params: Relative: Is the key relative or absolute. True if relative. Returns: HKey containing the base key. Gets the base key. ------------------------------------------------------------------------------} function TRegistry.GetBaseKey(Relative: Boolean): HKey; begin Result := CurrentKey; end; {------------------------------------------------------------------------------ Function: TRegistry.GetData Params: Name: name of the key Buffer: BufSize: RegData: Returns: Integer containing output from the function. Gets data from the registry. ------------------------------------------------------------------------------} function TRegistry.GetData(const Name: String; Buffer: Pointer; BufSize: Integer; var RegData: TRegDataType): Integer; begin Result := 0; end; {------------------------------------------------------------------------------ Function: TRegistry.GetDataInfo Params: ValueName: name of the value to get info on Value: Returns: Boolean containing result of the function. True if it succeeded. Get info on the data value. ------------------------------------------------------------------------------} function TRegistry.GetDataInfo(const ValueName: String; var Value: TRegDataInfo): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.GetDataSize Params: ValueName: name of the value to get info on Returns: Integer containing the size of the value. Get the size of the data value. ------------------------------------------------------------------------------} function TRegistry.GetDataSize(const ValueName: String): Integer; begin Result := 0; end; {------------------------------------------------------------------------------ Function: TRegistry.GetDataType Params: ValueName: name of the value to get info on Returns: TRegDataType containing type of the value. Get the type of the data value. ------------------------------------------------------------------------------} function TRegistry.GetDataType(const ValueName: string): TRegDataType; begin Result := rdUnknown; end; {------------------------------------------------------------------------------ Function: TRegistry.GetKey Params: Key: key to get Returns: HKey containing the key. Get a key from the registry. ------------------------------------------------------------------------------} function TRegistry.GetKey(const Key: String): HKEY; begin Result := 0; end; {------------------------------------------------------------------------------ Function: TRegistry.GetKeyInfo Params: Value: value of info to get key info on Returns: Boolean containing result of the function. True if it succeeded. Get the info of a key. ------------------------------------------------------------------------------} function TRegistry.GetKeyInfo(var Value: TRegKeyInfo): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.HasSubKeys Params: None Returns: Boolean containing result of the function. True if there are sub keys. See if the key has sub keys. ------------------------------------------------------------------------------} function TRegistry.HasSubKeys: Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.KeyExists Params: Key: the name of the key Returns: Boolean containing result of the function. True if the key exists. Check to see if a key exists. ------------------------------------------------------------------------------} function TRegistry.KeyExists(const Key: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.LoadKey Params: Key: the name of the key FileName: file containing the key to load Returns: Boolean containing result of the function. True if it succeeded. Load a key from a file. ------------------------------------------------------------------------------} function TRegistry.LoadKey(const Key, FileName: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.OpenKey Params: Key: the name of the key CanCreate: create the key if it does not exist. True to create Returns: Boolean containing result of the function. True if it succeeded. Open a key and optionally create it if is does not exist. ------------------------------------------------------------------------------} function TRegistry.OpenKey(const Key: string; CanCreate: Boolean): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadBinaryData Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadBinaryData(const Name: string; var Buffer; BufSize: Integer): Integer; begin Result := 0; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadBool Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadBool(const Name: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadCurrency Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} {function TRegistry.ReadCurrency(const Name: string): Currency; begin Result := 0.0; end;} {------------------------------------------------------------------------------ Function: TRegistry.ReadDate Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadDate(const Name: string): TDateTime; begin Result := now; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadDateTime Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadDateTime(const Name: string): TDateTime; begin Result := now; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadFloat Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadFloat(const Name: string): Double; begin Result := 0.0; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadInteger Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadInteger(const Name: string): Integer; begin Result := 0; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadString Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadString(const Name: string): string; begin Result := ''; end; {------------------------------------------------------------------------------ Function: TRegistry.ReadTime Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReadTime(const Name: string): TDateTime; begin Result := now; end; {------------------------------------------------------------------------------ Function: TRegistry.RegistryConnect Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.RegistryConnect(const UNCName: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.ReplaceKey Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ReplaceKey(const Key, FileName, BackUpFileName: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.RestoreKey Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.RestoreKey(const Key, FileName: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.SaveKey Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.SaveKey(const Key, FileName: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.UnLoadKey Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.UnLoadKey(const Key: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Function: TRegistry.ValueExists Params: AOwner: the owner of the class Returns: String containing output from the function. Description of the function for the class. ------------------------------------------------------------------------------} function TRegistry.ValueExists(const Name: string): Boolean; begin Result := True; end; {------------------------------------------------------------------------------ Method: TRegistry.CloseKey Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.CloseKey; begin end; {------------------------------------------------------------------------------ Method: TRegistry.ChangeKey Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.ChangeKey(Value: HKey; const Path: String); begin end; {------------------------------------------------------------------------------ Method: TRegistry.GetKeyName Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.GetKeyNames(Strings: TStrings); begin end; {------------------------------------------------------------------------------ Method: TRegistry.GetValueNames Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.GetValueNames(Strings: TStrings); begin end; {------------------------------------------------------------------------------ Method: TRegistry.MoveKey Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.MoveKey(const OldName, NewName: string; Delete: Boolean); begin end; {------------------------------------------------------------------------------ Method: TRegistry.PutData Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.PutData(const Name: string; Buffer: Pointer; BufSize: Integer; RegData: TRegDataType); begin end; {------------------------------------------------------------------------------ Method: TRegistry.RenameValue Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.RenameValue(const OldName, NewName: string); begin end; {------------------------------------------------------------------------------ Method: TRegistry.SetCurrentKey Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.SetCurrentKey(Value: HKEY); begin fCurrentKey := Value; end; {------------------------------------------------------------------------------ Method: TRegistry.SetRootKey Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.SetRootKey(Value: HKEY); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteBinaryData Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteBinaryData(const Name: string; var Buffer; BufSize: Integer); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteBool Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteBool(const Name: string; Value: Boolean); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteCurrency Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} {procedure TRegistry.WriteCurrency(const Name: string; Value: Currency); begin end;} {------------------------------------------------------------------------------ Method: TRegistry.WriteDate Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteDate(const Name: string; Value: TDateTime); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteDateTime Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteDateTime(const Name: string; Value: TDateTime); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteExpandString Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteExpandString(const Name, Value: string); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteFloat Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteFloat(const Name: string; Value: Double); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteInteger Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteInteger(const Name: string; Value: Integer); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteString Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteString(const Name, Value: string); begin end; {------------------------------------------------------------------------------ Method: TRegistry.WriteTime Params: AOwner: the owner of the class Returns: Nothing Description of the procedure for the class. ------------------------------------------------------------------------------} procedure TRegistry.WriteTime(const Name: string; Value: TDateTime); begin end; { $Log$ Revision 1.2 2002/05/10 06:05:55 lazarus MG: changed license to LGPL Revision 1.1 2000/07/13 10:28:27 michael + Initial import Revision 1.1 2000/04/02 20:49:56 lazarus MWE: Moved lazarus/lcl/*.inc files to lazarus/lcl/include Revision 1.2 1999/10/20 13:35:19 lazarus Fixed some of the documentation for the registry unit. Shane Revision 1.1 1999/10/18 07:30:48 lazarus Implemention unit for TRegistry class CAW }