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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

Автор: Nomadic

©Drkb::02956

       

Взято с http://delphiworld.narod.ru