Delphi-Help

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;