Как сменить пароль (master password) для таблицы Paradox

var

  db: TDatabase;
  Desc: CRTblDesc;
begin

  db := PriceTable.OpenDatabase;
  FillChar( Desc, SizeOf( Desc ), #0 );
  StrCopy( Desc.szTblName, PChar( PriceTable.TableName ) );
  StrCopy( Desc.szTblType, szParadox );
  StrCopy( Desc.szPassword, 'password' );
  Desc.bProtected := TRUE
;
  Check( DbiDoRestructure( db.Handle, 1, @Desc, nil
, nil
, nil
, FALSE
 ) );
end
;

Другое по теме:

• Byte-поля Paradox
• Paradox в сети
• Paradox и неверные индексы Win95