Как добавить пароль к таблице

Previous  Top  Next

    
 

 

 

Code:

uses

Bde, SysUtils, dbtables, windows;

 

 

function StrToOem(const AnsiStr: string): string;

begin

SetLength(Result, Length(AnsiStr));

if Length(Result)  0 then

   CharToOem(PChar(AnsiStr), PChar(Result));

end;

 

function TablePasswort(var Table: TTable; password: string): Boolean;

var

pTblDesc: pCRTblDesc;

hDb: hDBIDb;

begin

Result := False;

with Table do

begin

   if Active and (not Exclusive) then Close;

   if (not Exclusive) then Exclusive := True;

   if (not Active) then Open;

   hDB := DBHandle;

   Close;

end;

GetMem(pTblDesc, SizeOf(CRTblDesc));

FillChar(pTblDesc^, SizeOf(CRTblDesc), 0);

with pTblDesc^ do

begin

   StrPCopy(szTblName, StrToOem(Table.TableName));

   szTblType := szParadox;

   StrPCopy(szPassword, StrToOem(Password));

   bPack      := True;

   bProtected := True;

end;

if DbiDoRestructure(hDb, 1, pTblDesc, nil, nil, nil, False) DBIERR_NONE then Exit;

if pTblDesc  nil then FreeMem(pTblDesc, SizeOf(CRTblDesc));

Result := True;

end;

 

 

©Drkb::02961

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php