独占方式打开下才可用做到

//使用BDE API函数
uses
  BDE;
var
  CompressTable:TTable;
begin
      CompressTable:=TTable.Create(nil);
      Screen.Cursor:=crHourGlass;
      Path:=ExtractFileDir(FileName);
      DBFileName:=ExtractFileName(FileName);
      CompressTable.DatabaseName:=Path;
      CompressTable.TableName:=DBFileName;
      CompressTable.Exclusive :=true;
      CompressTable.Open;
    dbiPackTable(CompressTable.DBHandle,CompressTable.Handle,nil,szDBASE,true);
    CompressTable.Free;
    Screen.Cursor:=crDefault;

但是我用的是ADO，不知能行否？

YING GAI XING

但是ADO里面已经没有dbiPackTable这类函数了。

如果你使用的是vfp就可以使用AdoCommand来实现pack方法。
正确设置连接之后，
Adocommand1.commandText:='pack tablename'
然后execute就可以了。
注意，dBase不支持在adocommand中使用 Pack.

谢谢了。