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

Материал из DRKB

Как сменить пароль (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;


Author: Nomadic
Source: Взято с http://delphiworld.narod.ru
ID: 02956