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