读注册表

• 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;