Puedes usar:
Código Delphi
[-]
DatabaseName := ExtractFilePath(Application.ExeName);
Es otra forma, pero es exactamente lo mismo que paramstr(0)
Aunque yo te sugiero que las tablas las coloque en una SubCarpeta, ya que son muchos archivos los que se crean, ficheros de tablas, indices, validaciones, campos memos (si los utilizas), etc;
Crea la carpeta "tablas" dentro del .EXE, y despues añades esto:
Código Delphi
[-]
DatabaseName := ExtractFilePath(Application.ExeName)+'tablas';
Advertencia: Ten cuidado con las rutas extremadamente largas, yo situaría el programa con esta estructura de carpetas:
Código:
c:
|-----Mi Programa
|--------- Archivo .Exe
|--------- Tablas
|--------- auxiliar.DB
|--------- Otratabla.DB
Edito: Acabo de probarlo con la ruta:
C:\Archivos de programa\Borland\Delphi6\Projects\tablas
y funciona, pero recuerdo que en algun momento usando muchos niveles de carpetas, el BDE se quejó.
Un saludo