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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Nomadic

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;

{/codecitation}

Добавить комментарий