[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]


{----------- Original message follows -----------
I'm having trouble finding out the correct way to use the TRegistry to
insert data into the registry.  I figured out how to change the root key and
create a new key, but how do I insert my data in that key?  How do I retrieve it?
Couldsomeone post some sample code on how to do this?


Thanks
}

procedure TSettings.LoadSettings;
var
   Reg: TRegistry;
begin
     Reg:= TRegistry.Create;
     try
        Reg.OpenKey(sCALLTRAKKEY, False);
        if Reg.ValueExists(sEXECPATH) then
           fExecPath:= Reg.ReadString(sEXECPATH);
        if Reg.ValueExists(sDBASEPATH) then
           fDbasePath:= Reg.ReadString(sDBASEPATH);
        if Reg.ValueExists(sEMAILPATH) then
           fEmailPath:= Reg.ReadString(sEMAILPATH);
     finally
        Reg.CloseKey;
        Reg.Free;
     end;
end;


procedure TSettings.UpdateSettings;
var
   Reg: TRegistry;
begin
     PrefDlg:= TPreferences.Create(Application);
     with PrefDlg do
     begin
        Edit1.Text:= fExecPath;
        Edit2.Text:= fDbasePath;
        Edit3.Text:= fEmailPath;
        if ShowModal = mrOk then
           try
              Reg.OpenKey(SCALLTRAKKEY, True);  {open the key or create
it if it doesn't exist}
              Reg.WriteString(sEXECPATH, fExecPath);
              Reg.WriteString(sDBASEPATH, fDbasePath);
              Reg.WriteString(sEMAILPATH, fEmailPath);
              fChanged:= True;
           finally
              Reg.CloseKey;
              Reg.Free;
           end;
     end;
     PrefDlg.Free;
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]