Delphi 快速读取写入注册表参数值的函数

本文整理自网络，侵删。

 
uses Registry;

function ReadRegisry(RegKey: string; Default: string; MyRootKey: Hkey; MyOpenKey: string): string;
var
  Registry: TRegistry;
  s: string;
begin
  Registry := TRegistry.Create;
  try
    begin
      Registry.RootKey := MyRootKey; // HKEY_CURRENT_USER;
      Registry.OpenKey(MyOpenKey, False);
      // Registry.OpenKey('\Software\MachineAdministrator',false);
      s := Registry.ReadString(RegKey);
    end
  finally
    begin
      Registry.CloseKey;
      Registry.Free;
    end;
    if trim(s) = '' then
      Result := Default
    else
      Result := s;
  end;

end;



procedure WriteRegisry(RegKey: string; asValueTobewrited: string; MyRootKey: Hkey; MyOpenKey: string);
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    begin
      Registry.RootKey := MyRootKey; // HKEY_CURRENT_USER;
      Registry.OpenKey(MyOpenKey, True);
      // Registry.OpenKey('\Software\MachineAdministrator',true);
      Registry.WriteString(RegKey, asValueTobewrited);
    end
  finally
    begin
      Registry.CloseKey;
      Registry.Free;
    end;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
//HKEY_CURRENT_USER\Software\Netease\FlashMail
memo1.Lines.Add(ReadRegisry('AppPath', '0',HKEY_CURRENT_USER,'\Software\Netease\FlashMail'));
end;
 

相关阅读 >>

Delphi高效的byte转化sring 函数

Delphi 文件名变小写的函数

webbrowser部分用法

Delphi firedac 下的 sqlite [10] - 使用 r-tree 搜索

Delphi urldownloadtofile 实现文件下载

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphi 如何get/post 调用http请求

Delphi如何获取系统服务(即service服务程序)列表

Delphi 提升进程权限到sedebugprivilege

Delphi跨平台tcp库的封装

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 快速读取写入注册表参数值的函数