在D5中如何执行VFP的PACK命令？

独占方式打开下才可用做到//使用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;