Buscar por:

Fazendo um pack em arquivos paradox

Código

Uses Bde 

procedure TForm1.ParadoxPack(Table : TTable); 

var 

TBDesc : CRTblDesc; 

hDb: hDbiDb; 

TablePath: array[0..dbiMaxPathLen] of char; 

begin 

Table.Open; 

FillChar(TBDesc,Sizeof(TBDesc),0); 

with TBDesc do 

begin 

StrPCopy(szTblName,Table.TableName); 

StrPCopy(szTblType,szParadox); 

bPack := True; 

end; 

hDb := nil; 

Check(DbiGetDirectory(Table.DBHandle, True, TablePath)); 

Table.Close; 

Check(DbiOpenDatabase(nil, 'STANDARD', dbiReadWrite, dbiOpenExcl,nil,0, nil, 

nil, hDb)); 

Check(DbiSetDirectory(hDb, TablePath)); 

Check(DBIDoRestructure(hDb,1,@TBDesc,nil,nil,nil,False)); 

Table.Open; 

end;