DELPHI 压缩ACCESS数据库

unit data_mouble;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB,
  DAO2000;

type
  TDataModule1 = class(TDataModule)
    con_DB: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
  condbstr: string;
  Engine: DBEngine;
begin
  Engine := CoDBEngine.Create;
    Engine.CompactDatabase(ExtractFilePath(Application.ExeName) + 'db1.mdb',
   ExtractFilePath(Application.ExeName) + 'db1.temp', '', 0, '');
  sleep(1000);
  if DeleteFile(ExtractFilePath(Application.ExeName) + 'db1.mdb') then
    // 删除文件"dbName"
    RenameFile(ExtractFilePath(Application.ExeName) + 'db1.temp',
      ExtractFilePath(Application.ExeName) + 'db1.mdb');
  sleep(2000);