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