Tweak modificar un programa desde otro.

[dec]

Hola,

A ver si el siguiente código fuente puede echarte una mano o te da al menos alguna idea:

Código Delphi [-]
unit UfrmPrincipal;

interface

uses
  Forms, StdCtrls,
  Classes, Controls;

type
  TfrmPrincipal = class(TForm)
    edNombre: TEdit;
    lbNombre: TLabel;
    edApellidos: TEdit;
    lbApellidos: TLabel;
    btnGuardar: TButton;
    btnRecuperar: TButton;
    procedure btnGuardarClick(Sender: TObject);
    procedure btnRecuperarClick(Sender: TObject);
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

uses
  IniFiles, Dialogs, SysUtils;

procedure TfrmPrincipal.btnGuardarClick(Sender: TObject);
var
  ini: TIniFile;
  dlg: TSaveDialog;
begin
  dlg := TSaveDialog.Create(Self);
  dlg.DefaultExt := 'ini';
  dlg.FileName := 'archivo.ini';
  dlg.Filter := 'Archivos INI (.ini)|*.ini';
  dlg.Options := [ofOverwritePrompt];
  try
    if dlg.Execute then
    begin
      ini := TIniFile.Create(dlg.FileName);
      try
        ini.WriteString('Usuario', 'Nombre', edNombre.Text);
        ini.WriteString('Usuario', 'Apellidos', edApellidos.Text);
      finally
        ini.Free;
      end;
    end;
  finally
    dlg.Free;
  end;
end;

procedure TfrmPrincipal.btnRecuperarClick(Sender: TObject);
var
  ini: TIniFile;
  dlg: TOpenDialog;
begin
  dlg := TOpenDialog.Create(Self);
  dlg.DefaultExt := 'ini';
  dlg.FileName := 'archivo.ini';
  dlg.Filter := 'Archivos INI (.ini)|*.ini';
  dlg.Options := [ofFileMustExist];
  try
    if dlg.Execute then
    begin
      ini := TIniFile.Create(dlg.FileName);
      try
        edNombre.Text := ini.ReadString('Usuario', 'Nombre', '');
        edApellidos.Text := ini.ReadString('Usuario', 'Apellidos', '');
      finally
        ini.Free;
      end;
    end;
  finally
    dlg.Free;
  end;
end;

end.

Adjunto el ejemplo de manera que puedas probarlo tú mismo.