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;

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;

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;

推荐分享