home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / windows / pdoxeng / getdef.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-11  |  1KB  |  40 lines
  1. program GetDef;
  2. uses PXEngine, WinCrt;
  3.  
  4. var   PxErr: Integer;
  5.       sortTable: Char;
  6.       MaxSwapsizevar,
  7.       MaxTableHandlesvar,
  8.       MaxRecBufsvar,
  9.       MaxLockHandlesvar,
  10.       MaxFileHandlesvar: Integer;
  11.  
  12. procedure PX(Code : integer);
  13. begin
  14.   writeln(PXErrMsg(Code));
  15. end;
  16.  
  17. begin
  18.   PX(PXSetDefaults(MaxSwapSize, MaxTableHandles, PxDefault,
  19.             MaxLockHandles, MaxFileHandles, DefSortOrder));
  20.  
  21.   (* Retrieve the current defaults. *)
  22.   PxErr := PXGetDefaults(MaxSwapsizevar, MaxTableHandlesvar, MaxRecBufsvar,
  23.                MaxLockHandlesvar, MaxFileHandlesvar, sortTable);
  24.   if PxErr <> PxSuccess then
  25.     Writeln(PxErrMsg(PxErr))
  26.   else begin
  27.        Writeln('Swap Size: ', MaxSwapsizevar);
  28.        Writeln('Table Handles: ', MaxTableHandlesvar);
  29.        Writeln('Record Buffers: ', MaxRecBufsvar);
  30.        Writeln('Lock Handles: ', MaxLockHandlesvar);
  31.        Writeln('File Handles: ', MaxFileHandlesvar);
  32.        write  ('Sort order: ');
  33.        if sortTable = DefSortOrder then Writeln('System Default')
  34.        else if sortTable = 'a' then Writeln('ascii')
  35.        else if sortTable = 'i' then Writeln('international')
  36.        else if sortTable = 'n' then Writeln('Norwegian/Danish')
  37.        else if sortTable = 's' then Writeln('Swedish/Finish');
  38.        end;
  39. end.
  40.