Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources]
"Paradox"="Microsoft Paradox Driver (*.db )"

program Project1;

uses
  Windows, SysUtils, Forms, BDE, DBTables,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  SI: TStartupInfo;
  P: TProcessInformation;

begin
  if (DbiInit(nil) <> DBIERR_NONE) then
    if Application.MessageBox('Для работы приложения требуется BDE.'#13#13'Установить данный компонент?', 'Внимание!', MB_APPLMODAL or MB_YESNO or MB_ICONQUESTION) = 6 then begin
      FillChar(SI, SizeOf(SI), 0);
      SI.cb := SizeOf(SI);
      CreateProcess(nil, 'regsvr32 /s BdeInst.dll', nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, P);
      WaitForSingleObject(P.hProcess, INFINITE);
      CloseHandle(P.hProcess);
      CloseHandle(P.hThread);
      SetForegroundWindow(Application.Handle);
    end
    else
      Exit;
  Session.ConfigMode := cmSession;
  Session.AddStandardAlias('apteka', ExtractFilePath(ParamStr(0)) + 'BASE', 'PARADOX');
  Session.ConfigMode := cmAll;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Session.AddAlias(AliasName, AliasDriver, Params);
Session.SaveConfigFile;