[Sed0Y]

Сообщение от Yurk@

П.С. Хотя я бы добавил дистрибутив БДЕ в инсталятор программы и установил всё это одним махом

Я ДОбаляю инсталяцию БДЕ, но Алиас в DSN оно не добавляет, если знаешь метод поделись плз...

я инстал БДЕ делаю так

Код:

  if (DbiInit(nil) <> DBIERR_NONE) then
    if Application.MessageBox('For work with programm, need BDE.'#13#13'Intalling its component?', 'Attention!'
    , 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;