te dejo 2 unit que sirve para eso
utilizacion de ella es así:
este sería para el que lee las variables: (main)
Código Delphi
[-]
uses SettingsDef.pas, UnitVariables.pas
var
Lee: pSettings;
begin
if ReadSettings(Lee) then begin
Configuracion.Server:= Lee.Server;
Configuracion.LD:= Lee.LD;
Edit1.Text:= Configuracion.Server;
end;
este sería para el que escribe las variables: (CHILD)
Código Delphi
[-]
var
Graba: PSettings;
begin
New(Graba);
Graba.Server:= Edit1.Text;
Graba.LD:= Edit2.Text;
if WriteSettings(PChar(aqui la ruta del archivo ejemplo C:\maco.exe), Graba) = True then begin
ShoWMessage('La configuración se ha grabado correctamente.'); Close; end else
ShoWMessage('La configuración no se ha podido grabar.');
cualquier duda me consultas ya que yo trabaje mucho con estas uses