Delphi注册表操作函数LoadKey

今天阅读某个源码的时候,发现了一个函数LoadKey,看了半天也不明白是做什么用的,于是就跟进源码,该函数定义在Registry单元,函数源码如下:
function TRegistry.LoadKey(const Key, FileName: string): Boolean;
var
  S: string;
begin
  S := Key;
  if not IsRelative(S) then Delete(S, 1, 1);
  Result := RegLoadKey(RootKey, PChar(S), PChar(FileName)) = ERROR_SUCCESS;
end;
最后函数却调用了Win API里德注册表操作函数RegLoadKey,查了一下Delphi提供的Windows SDK,解释如下:

The RegLoadKey function creates a subkey under HKEY_USER or HKEY_LOCAL_MACHINE and stores registration information from a specified file into that subkey. This registration information is in the form of a hive. A hive is a discrete body of keys, subkeys, and values that is rooted at the top of the registry hierarchy. A hive is backed by a single file and .LOG file.

LONG RegLoadKey(
    HKEY hKey,    // handle of open key
    LPCTSTR lpSubKey,    // address of name of subkey
    LPCTSTR lpFile     // address of filename for registry information
   );    
注册表的导入,就可以使用该函数。举一个例子吧:

procedure TMainFrm.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    LoadKey('SOFTWARE\Microsoft\Microsoft SQL Server\', ExtractFilePath(ParamStr(0)) +  'demoreg1.txt');
    CloseKey;
    Free
  end;
end;



上一篇: 完美安装SQL2000企业版
下一篇: 从名字测出你姻缘
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi 注册表 函数 LoadKey
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭