Добавляем пароль к таблице Paradox

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
;

Другое по теме:

• Byte-поля Paradox
• Paradox в сети
• Paradox и неверные индексы Win95