Windoware/WINDOWARE_1_6.iso/source/tpwpxeng/pswdel.pas

Pascal/Delphi Source File | 1991-07-22 | 654b | 35 lines

program PswDel;
uses PXEngine, WinCrt, WinTypes;

const TableName = 'Table';
      Password  = 'Password';

var   PxErr: Integer;
      Protected: Bool;

procedure PX(Code : integer);
begin
  writeln(PXErrMsg(Code));
end;

begin
  PX(PXWinInit('MyApp', pxShared));
  PX(PXTblProtected(TableName, Protected));

  if Protected then
    PxErr := PXPswAdd(Password);

  (* Open encrypted table and when done with table, delete password
     from system, if necessary
  *)
  if Protected then
  begin
    PxErr := PXPswDel(Password);
    if PxErr <> PxSuccess then
      Writeln(PxErrMsg(PxErr));
  end;

  PX(PXExit);
end.