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

FOOLCODE

已于 2024-02-19 09:38:27 修改

阅读量1.2k

点赞数

分类专栏：基于Delphi 语言开发应用文章标签： delphi function string

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

本文链接：https://blog.csdn.net/FOOLCODE/article/details/2044518

版权

基于Delphi 语言开发应用专栏收录该内容

14 篇文章 0 订阅

订阅专栏

读取注册表信息函数

{******************************************************************************/
/*      读取注册表信息                                                                             /
/******************************************************************************}
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;