Delphi的TRegistry注冊表類方法詳解

2019-11-18 18:51:01

字體：大中小

來源：轉載

供稿：網友

●GetDataInfo方法
Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;
TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);
TregDataInfo=record
　　　Regdata:TRegDataType;數據類型
　 dataSize:integer;數據大小
end
valuename:和當前鍵關聯的數據值名稱
value：返回數據的信息，如為rdstring和rdexpandstring類型，則數據大小包括字符串未尾的空結束字符。
　　如果成功返回True，失敗返回False，并且Value的值為zeros
rdexpandstring：是一個包含環境變量的字符串;如“%PATH%”。

●CreateKey方法
Function CreateKey(const Key:string):Boolena;
　　新建一個名為Key的鍵，Key可以為絕對的或相對的名字，絕對名用反斜杠“”開頭，相對名是新建一個當前鍵的子鍵。新建沒有值。
　　成功返回True，否則返回False,如果該鍵已存在將不產生效果。

●DeleteKey方法
Function DeleteKey(const Key:string):Boolean;
　　刪除一個鍵及相關聯的數據，在win95中子鍵也將被刪除，NT中子鍵必須一個個刪除。

●DeleteValue方法
Function DeleteValue (const Name:string):Boolean;
　　刪除當前鍵中指定的一個數據值name。

●GetDataSize方法
Function GetDataSize(const ValueName:string):integer;
　　返回當前鍵中一個指定數值ValueName數據的大小。

●GetDataType方法
Function GetDataType(const Valuename;string):TRegDataType;
　　返回當前鍵中一個指定數值Valuename數據的類型。

●GetKeyInfo方法
Function GetKeyInfo(var value:TRegkeyinfo):Boolean;
　　返回當前鍵的信息，在于value中。
TRegkeyinfo=record
　 maxsubkeylen:integer;子鍵名的最長值（字節）
　 numvalues:integer;鍵值的數量
　 maxvaluelen;最長的鍵值名的長度
　 Filetime:TFileTime;最后一次更改的時間
end;

●Getkeynames方法
PRocedure Getkeynames(strings:Tsrtings);
　　返回當前鍵所有子鍵的名子列表串。

●Getvaluenames
Procedure Getvaluenames(strings:Tstrings);
　返回當前鍵所有鍵值名的列表串。

●Hassubkeys方法
Function hassubKeys:Boolean;
　　判斷當前鍵是否有子鍵，有返回True，否則返回False。

●keyExists方法
Function KeyExists(const Key:string):Boolean;
　　判斷指定的鍵是否存在。

●LoadKey方法
Function LoadKey(const Key,fileNmae:string):Boolean;
　在根鍵下新建
　從一個文件中加載注冊信息到子鍵中，文件注冊信息中包含數據值名、子鍵和數據。
　　LoadKey使創建一個鍵單一化，子鍵，鍵值和數據在一人操作中完成，所有這些稱為一組，和單獨地創建它們不同應用程序可以在一個文件中讀取一組數據，這在用戶運行中重新設置有特別的用處。
　Key為要創建子鍵的名子
　FileName：為文件的位置，所指定的文件必須為以前用SaveKey函數或RegSaveKey API函數所建立的，文件名不能包括擴展名。

●OpenKey方法
Function OpenKey(const Key:string;cancreate:Boolean):Boolean;
　　使用該函數可以指定一個鍵作為當前鍵，如果鍵為nil，則當前鍵將設置為根鍵。
　　Cancreate決定是否在指定鍵不存在時創建該鍵，該函數創建的鍵的鍵值將不確定。
　　如果成功地打開或創建，該函數返回True。

●OpenKeyReadOnly方法
function OpenKeyReadOnly(const Key: String): Boolean;
　　以只讀的方式打開Key值指定的鍵。

●CloseKey方法
procedure CloseKey;
　當不再使用一個鍵時應用該方法關閉該鍵。

●MoveKey方法
procedure MoveKey(const OldName, NewName: String; Delete: Boolean);
　該方法移動或復制一個鍵到一個新的位置，并把鍵的名子改為NewName。
　在Win95/98下該的子鍵和數據將被一起移動或復制到新的位置，在NT下子鍵必須用MoveKey明確的移動或自制。

●讀取數據的方法
function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer):Integer;
function ReadBool(const Name: String): Boolean;
function ReadCurrency(const Name: String): Currency;
function ReadDate(const Name: String): TDateTime;
function ReadDateTime(const Name: String): TDateTime;
function ReadFloat(const Name: String): Double;
function ReadInteger(const Name: String): Integer;
function ReadString(const Name: String): String;
function ReadTime(const Name: String): TDateTime;
　　以上方法從當前主鍵讀取相應數據類型的鍵值的數據，如果類型不匹配將產生一個異常。

●RegistryConnect方法
function RegistryConnect(const UNCName: String): Boolean;
　與另一臺計算機的注冊表建立連接，在建立連接前應將Rootkey屬性設為HKEY_USERS或HKEY_LOCAL_MACHINE。
　UNCName是另一臺計算機的名子。格式如：/computername
　假如UNCName為nil，將打開本地計算機。

上一篇：DELPHI中的消息處理機制

下一篇：Delphi中串口通信的實現