Hola
Si quieres eliminar el archivo ini (que para mi es un error) y quieres colocar la BD en la misma carpeta del programa, entonces cambias en el datamodule, de esto:
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BD.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDB: Database Password=admin';
AC1.ConnectionString := ConStr;
AC1.Open;
end;
A esto:
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
BaseDeDatos, ConStr : String;
begin
BaseDeDatos := ExtractFilePath(Application.ExeName)+'Datos.MDB';
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDB: Database Password=admin';
AC1.ConnectionString := ConStr;
AC1.Open;
end;
El dia que quieras colocar la BD en red, volverás al INI.
Saludos