#include <odbcinst.h>
bool TADOAccessLink::CompressBase(bool ShowError)
{
  BOOL INSTAPI (*SQLConfigDataSource)(
    HWND    hwndParent,
    WORD    fRequest,
    LPCSTR  lpszDriver,
    LPCSTR  lpszAttributes);

  RETCODE (*SQLInstallerError)(
    WORD     iError,
    DWORD *     pfErrorCode,
    LPSTR     lpszErrorMsg,
    WORD     cbErrorMsgMax,
    WORD *     pcbErrorMsg);

  HANDLE hL=LoadLibrary("odbccp32.DLL");
  if (hL==NULL) return  0 ;

  (void*)SQLInstallerError=GetProcAddress(hL,"SQLInstallerError");
  (void*)SQLConfigDataSource=GetProcAddress(hL,"SQLConfigDataSource");

  try
  {
    if (SQLConfigDataSource==NULL) return  0 ;

    AnsiString File1=FBaseName;
    AnsiString File2=FBaseName+".tmp";

    AnsiString str="COMPACT_DB=\""+File1+"\" "+File2;

    char p3[ 1000 ];
    char p4[ 1000 ];

    strcpy(p3,"Microsoft Access Driver (*.mdb)");
    strcpy(p4,str.c_str());

    bool r=SQLConfigDataSource( 0 , 4 ,p3,p4);

    if (r)
    {
      if (!DeleteFile(File1))
      {
        if (ShowError) ShowMessage("=х ьюу? ?фрыш?? ?рщы '"+File1+"'");
      }
      if (RenameFile(File2,File1)) return  1 ;
      else
      {
        int erc=GetLastError();
        if (ShowError) ShowMessage(SysErrorMessage(erc));
        return  0 ;
      }
    }
    else
    {
      if (!ShowError) return  0 ;
      if (SQLInstallerError==NULL) return  0 ;

      DWORD erc;
      WORD pers;
      char ers[ 1001 ];
      SQLInstallerError( 1 ,&erc,ers, 1000 ,&pers);

      ShowMessage(ers);

      return  0 ;
    }
  }
  __finally
  {
    FreeLibrary(hL);
  }
  return  1 ;
}