Как узнать пароль файла базы данных из программы на Delphi?

[<- DelpHIFanat ->]

Приветствую, участники! Допустим, у меня есть база данных Access, к которой подключается программа, написанная на Delphi. Как узнать какой у базы пароль, чтобы его запросить у пользователя при запуске приложения? Как поменять пароль знаю (технология DAO), но как узнать присутствует пароль или нет (а тем более сам пароль) понятия не имею. Конечно, можно, его сохранить в каком-нибудь файле (ini, например), но не хотелось бы так делать (ИБ всё-таки).

[Аватар]

А зачем вообще программе знать это? Это пользователь должен знать, он вводит или нет пароль, а программа в зависимсости от этого пытается приконектиться к базе с паролем или без пароля

[<- DelpHIFanat ->]

Сообщение от Аватар

А зачем вообще программе знать это?

Просто я однажды уже что-то подобное пытался сделать, но сделал это как-то по-тупому: пытался узнать пароль из свойства ConnectionString (код приложил). Тогда, думаю, раз программе это знать не нужно, то через блок Try...Except...End попробовать - если будет ошибка, то прога, по идее, подрубиться к базе не должна.

procedure TfDM.DataModuleCreate(Sender: TObject);
Var
  mr, MesRes: Integer;
  Pass, ConStr, ConPass: String;
begin
  ConStr:=ADOConnection.ConnectionString;
  ConPass:=ConStr;
  Delete(ConPass, 1, Pos('Jet OLEDB:Database Password=', ConPass));
  Delete(ConPass, 1, Pos('=', ConPass));
  Delete(ConPass, Pos(';', ConPass), Length(ConPass));

  Repeat
    mr:=PasswordDialogForm.ShowModal;

    If (mr=mrOk) Then
      If (PasswordDialogForm.EditPassword.Text=ConPass) Then
        Begin
          MessageBox(0,
            PChar('Добро пожаловать!'),
            PChar('Вход в программу'),
            MB_OK + MB_ICONINFORMATION + MB_APPLMODAL + MB_TOPMOST);
          Break;
        End
      Else
        Begin
          MesRes:=MessageBox(0,
            PChar('Неверный пароль! Хотите повторить попытку?'),
            PChar('Вход в программу'),
            MB_YESNO + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
          If (MesRes=ID_NO) Then
            Halt;
        End
    Else If (mr=mrCancel) Then
      Begin
        MessageBox(0,
          PChar('Вход в программу отменён!'),
          PChar('Вход в программу'),
          MB_OK + MB_ICONINFORMATION + MB_APPLMODAL + MB_TOPMOST);
        Halt;
      End;
  Until (False);
end;