Fórum IBX em arquivo .ini #381467

Eu tenho   Mas e sobre este post aqui   https://www.devmedia.com.br/forum/viewtopic.asp?id=380586   Que fim vc deu para ele ????

procedure Tdm.DataModuleCreate(Sender: TObject);
resourcestring
  SErroConexao =
    'Erro ao conectar-se com o banco de dados.'#13#13'%s'#13#13 +
    'Ajuste as configurações no arquivo %s'; const
  Secao = 'Banco de Dados';
var
  Ini: TIniFile;
  ArqIni, Caminho: string;
begin
   ArqIni := ChangeFileExt(ParamStr(0), '.ini');   Ini := TIniFile.Create(ArqIni);
  try
    Caminho := Ini.ReadString(Secao, 'Caminho', '');     if Caminho = '' then
      if InputQuery('Banco de Dados', 'Caminho', Caminho) then
        Ini.WriteString(Secao, 'Caminho', Caminho)
      else
      begin
        Application.Terminate;
        Exit;
      end;   finally
    Ini.Free;
  end;
  with IBDtbRecibo do
  begin
    Close;
    DatabaseName := Caminho;
    try
      Connected := True;
    except
      on E: Exception do
      begin
        MessageDlg(Format(SErroConexao, [E.Message, ArqIni]),
          mtError, [mbOk], 0);
        Application.Terminate;
        Exit;
      end;
    end;
  end; end;   Atenciosamente   Eriley

Programa com códigos fontes? Ola pessoal, você programador que quer um aplicativo exemplo para fins comerciais, tenho uma dica, compre o WinPhar que vem com todos os códigos fontes e faça um programa baseado nele, sim ele também vêm com todos os componentes para instalar, voce além de ganhar um programa complidao, ganha tb os seus códigos fontes e seus componentes. O programa foi desenvolvido em Delphi 7 com banco de dados paradox, e custa apenas 20,00 reais
deem uma olhadinha ai no produto
http://produto.mercadolivre.com.br/MLB-149256966-winphar-2008-sistema-para-farmacias-e-drogarias-_JM
e ente em contato pelo e-mail pedroluissaraiva@yahoo.com.br.!