- function GetRegString(RootKey: HKEY; Section, Key, DefaultValue: string):string;
- var
- MyReg: TRegistry;
- begin
- Result := DefaultValue;
- MyReg := TRegistry.Create;
- if MyReg <> nil
- then begin
- MyReg.RootKey := RootKey;
- if MyReg.OpenKeyReadOnly(Section) then begin
- Result :=MyReg.ReadString(Key); if Result = '' then
- Result := DefaultValue;
- MyReg.CloseKey; end;
- MyReg.Free;
- end;
- end;
读注册表
最新推荐文章于 2021-02-13 08:33:31 发布