codice:
procedure TfrmOpt.FormActivate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Edit1.Text := Ini.ReadString('Mail', 'Server', '');
Edit2.Text := Ini.ReadString('Mail', 'User', '');
Edit3.Text := Ini.ReadString('Mail', 'Paswd', '');
finally
Ini.Free;
end;
end;
procedure TfrmOpt.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Ini.WriteString( 'Mail', 'Server', Edit1.Text );
Ini.WriteString( 'Mail', 'User', Edit2.Text );
Ini.WriteString( 'Mail', 'Paswd', Edit3.Text );
finally
Ini.Free;
end;
end;
end.
Prendi spunto da questo mio stralcio