Delphi WIN32系统注册表的读写方法小例子

原创已于 2024-02-19 09:38:27 修改 · 1.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

基于Delphi 语言开发应用

于 2008-01-15 09:31:00 首次发布

本文介绍了一种在Windows系统中使用Delphi进行注册表信息读取与写入的方法。通过两个示例函数，展示了如何创建TRegistry实例，设置根键，打开指定路径的键值，读取布尔值、字符串及整数类型的数据，并写入相应的键值。

读取注册表信息函数

{******************************************************************************/
/*      读取注册表信息                                                                             /
/******************************************************************************}
Procedure AMstartup;
var
    NTOOLSPATH:String;
    NTOOLSRoot:HKEY;
    NTOOLSregister: TRegistry;
begin
    GetDir(0,maindirectory);
    try
    NTOOLSPATH:='SOFTWARE/Company Name./NIUBI';

    NTOOLSRoot:=HKEY_LOCAL_MACHINE;
    NTOOLSregister:= Tregistry.Create;
    NTOOLSregister.RootKey:=NTOOLSRoot;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    Hanhuai:=NTOOLSregister.ReadBOOL('LANGUAGE');
    NTOOLSregister.CloseKey;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    EFUNCTION:=NTOOLSregister.ReadString('FUNCTION');
    NTOOLSregister.CloseKey;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    COUNTERX:=NTOOLSregister.Readinteger('COUNTER');
    NTOOLSregister.CloseKey;

    NTOOLSregister.Destroy;
    except
    end;
end;

写入注册表信息函数

{******************************************************************************/
/*      写入注册表信息                                                                             /
/******************************************************************************}
Procedure AMshutdown;
var
    NTOOLSPATH:String;
    NTOOLSRoot:HKEY;
    NTOOLSregister: TRegistry;
begin
    try
    NTOOLSPATH:='SOFTWARE/Company Name./NIUBI';

    NTOOLSRoot:=HKEY_LOCAL_MACHINE;
    NTOOLSregister:= Tregistry.Create;
    NTOOLSregister.RootKey:=NTOOLSRoot;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    NTOOLSregister.WriteString('Version','1.0.0.2');
    NTOOLSregister.CloseKey;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    NTOOLSregister.WriteBOOL('LANGUAGE',hanhuai);
    NTOOLSregister.CloseKey;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    NTOOLSregister.WriteString('FUNCTION','111111');
    NTOOLSregister.CloseKey;

    if COUNTERX > 0 then
    begin
        NTOOLSregister.OpenKey(NTOOLSPATH,True);
        NTOOLSregister.WriteString('FUNCTION',EFUNCTION);
        NTOOLSregister.CloseKey;
    end;

    NTOOLSregister.OpenKey(NTOOLSPATH,True);
    NTOOLSregister.Writeinteger('COUNTER',COUNTERX+1);
    NTOOLSregister.CloseKey;

    NTOOLSregister.Destroy;
    except
    end;
end;

标签

#delphi #function #string