Por ejemplo partiendo de un INI como éste:
[Camino]
String=Localhost:C:\xxxx\xxxx\xxxxx.FDB
Código Delphi
[-]
procedure TDmConex.DataModuleCreate(Sender: TObject);
Var
MiCarpeta:String;
MiFicheroIni:TIniFile;
begin
MiCarpeta:=ExtractFilePath(Application.ExeName);
IBDatabase.Close;
Try
MiFicheroIni := TIniFile.Create (MiCarpeta+'MZFB.ini');
IBDatabase.DatabaseName:=MiFicheroIni.ReadString ('Camino', 'String','Error');
IBDatabase.Connected :=True;
Ibtransaction.Active :=True;
IbDtsUsuarios.Active := True;
IbDtsContadores.Active := True;
IbDtsImpresoras.Active := True;
IbDtsConf.Active := True;
Except
ShowMessage('No se pudo acceder al fichero '+Mificheroini.FileName );
end;
end;
Un Saludo.