Работа БД Paradox и Delphi

[drossell]

Не могу победить такую проблему:
прога написана на Delphi 7, а БД - Paradox.
Прога работает, но когда перекидываю на флешку или другой комп ругается, пишет, что нет такого адреса у БД (ссылается на адрес, который был при написании проги) - через BDE Administrator посмотрел, действительно у БД старый адрес, если поменять адрес на тот который в данный момент, то все работает.
Как или какое свойство нужно прописать, чтобы при запуске на других компах, адрес БД менялся автоматически?

P.S. за ранее спасибо.

[b2soft]

а не проще БД засовывать в папку с исполняемым exe? и писать путь 'basa.pdx'

Еще можно просто вызывать OpenDialog чтобы указать метсонахождение базы

[drossell]

БД как раз в папке 'base', которая лежит где все исходники.
Вот как я делаю: в свойствах БД выбрана процедура, которая находит месторасположения БД, вот листинг процедуры:

/Íàñòðîéêà ïóòè ê ÁÄ, ñîçäàíèå ïñåâäîíèìà ÁÄ è îòêðûòèå íàáîðîâ äàííûõ:
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  if not Session.IsAlias('alComp') then begin
    Session.ConfigMode := cmAll;
    Session.AddStandardAlias('alComp', ExtractFilePath(ParamStr(0))+'Base', 'PARADOX');
    end;
  Database1.Open;
  tbGoodsGroup.Open;
  tbGoods.Open;
  tbContrag.Open;
  tbContract.Open;
  tbRequisit.Open;
  tbIncome.Open;
  tbIncomeComp.Open;
  tbRealiz.Open;
  tbRealizComp.Open;
  tbRealizComp2.Open;
  qrStore.Open;
  qrStoreAll.Open;
end;

Но почемуто не работает, может что-то не так?

P.S. за ранее спасибо

[drossell]

Всё, сам вроде разобрался: у меня в свойствах БД было прописан адрес
'alComp', который имел PATH как раз на старый адрес - его-то я раньше и менял, а сейчас просто вместо 'alComp' прописал сразу папку 'Base', которая лежит непосредственно в исходниках. Вроде работает, пока работает

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  if not Session.IsAlias('Base') then begin
    Session.ConfigMode := cmAll;
    Session.AddStandardAlias('Base', ExtractFilePath(ParamStr(0))+'Base', 'PARADOX');
    end;
  Database1.Open;
  tbGoodsGroup.Open;
  tbGoods.Open;
  tbContrag.Open;
  tbContract.Open;
  tbRequisit.Open;
  tbIncome.Open;
  tbIncomeComp.Open;
  tbRealiz.Open;
  tbRealizComp.Open;
  tbRealizComp2.Open;
  qrStore.Open;
  qrStoreAll.Open;
end;

b2soft СПАСИБО за мысль.