Fórum Remover senha paradox via programação #278586

procedure EncryptPDOXTable(TableName,Password : String);
var
  TblDesc: CRTblDesc;
  LocDB : TDatabase;
begin
  //Initialize the BDE
  Check(DBIInit(nil));

  //Initialize random number generator
  Randomize;
  //Create a local, non-owned database object that
  //points to the path associated with the table.
  LocDB := TDatabase.Create(nil);
  with LocDB do begin
    Params.Add(´path=´ + ExtractFilePath(TableName));
    DatabaseName := ´PDOXEncryptDB´ + IntToStr(Random(50));
    DriverName := ´STANDARD´;
    Connected := True;
  end;

  //Now, initialize the Table Descriptor with the values
  //required to set a master password.
  FillChar(TblDesc, SizeOf(CRTblDesc), 0);
  StrPCopy(TblDesc.szTblName, ExtractFileName(TableName));
  with TblDesc do begin
    bProtected := True;
    StrPCopy(TblDesc.szPassword, Password)
  end;

  //Now do the restructure.
  try
    Check(DbiDoRestructure(LocDB.Handle, 1, @TblDesc,
          nil, nil, nil, False));
  finally
    LocDB.Free;
    DBIExit;
  end;
end;