I know how to pack one db. The function is defined as follows:
// Pack a Paradox or dBASE table
// The table must be opened execlusively before calling this function...
procedure PackTable(Table: TTable);
But How to pack all the paradox DBs of a directory by programming?