home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tapmu.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-12-23  |  1.1 KB  |  54 lines
  1. program TAPMu;
  2.  
  3. Uses
  4.  
  5.   VAPMu;
  6.  
  7. Var
  8.  
  9.   Z,Z2,Z3 : INTEGER;
  10.   S       : STRING;
  11.  
  12.   Err     : BYTE;
  13.   f       : WORD;
  14.   as      : WORD;
  15.   bs      : WORD;
  16.   bp      : WORD;
  17.  
  18.  
  19. BEGIN
  20.  
  21.   WriteLn('VisionTools VAPMu Tester; Version 1.0');
  22.   WriteLn('Requires an Advanced Power Management BIOS.');
  23.   WriteLn;
  24.  
  25.   If VAPMInstalled then
  26.   BEGIN
  27.     WriteLN('APM Manager detected.');
  28.     WriteLn('APM Install Check');
  29.  
  30.     VAPMInstallCheck( S, F, Err );
  31.  
  32.     WriteLn('  Error ................. ', Err );
  33.     WriteLn('  Flags ................. ', F   );
  34.     WriteLn('  Version ............... ', S   );
  35.  
  36.     WriteLn;
  37.     WriteLn('  Power Status .......... ' );
  38.     Err := VAPMGetPowerStatus( AS, BS, BP );
  39.     WriteLn('  Error ................. ', Err );
  40.     WriteLn('  AC Status ............. ', AS  );
  41.     WriteLn('  Battery Status ........ ', BS  );
  42.     WriteLn('  Battery Percent ....... ', BP  );
  43.  
  44.  
  45.     WriteLn;
  46.     WriteLn('  Line Status Text ...... ', VAPMGetACLineStatusText   );
  47.     WriteLn('  Battery Status Text ... ', VAPMGetBatteryStatusText  );
  48.  
  49.   END
  50.   ELSE
  51.     WriteLn('NO APM Manager can be detected.');
  52.  
  53.  
  54. END.