home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / MSYSINFO.ZIP / Int / MSI_Console.int < prev    next >
Encoding:
Text File  |  2002-03-04  |  2.1 KB  |  62 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Console Object         }
  5. {           version 6.5 for Delphi 5,6                  }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2001 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Console;
  14.  
  15. interface
  16.  
  17. uses
  18.   MSI_CPU, MSI_Machine, MSI_Devices, MSI_Display, MSI_Network, MSI_Media,
  19.   MSI_Memory, MSI_Engines, MSI_APM, MSI_Disk, MSI_OS,
  20.   MSI_Printers, MSI_Software, MSI_Startup, MSI_Common,
  21.   Windows, SysUtils, Classes;
  22.  
  23. type
  24.   TSubObject = (soCPU, soMachine, soDevices, soDisplay, soNetwork, soMedia,
  25.                 soMemory, soEngines, soAPM, soDisk, soOS, soPrinters, soSoftware, soStartup);
  26.  
  27.   TSubObjects = set of TSubObject;
  28.  
  29. const
  30.   soAll = [soCPU, soMachine, soDevices, soDisplay, soNetwork, soMedia,
  31.            soMemory, soEngines, soAPM, soDisk, soOS, soPrinters, soSoftware, soStartup];
  32.  
  33. type
  34.   TMSI = class(TPersistent)
  35.   public
  36.     constructor Create(ASubObjects: TSubObjects = soAll);
  37.     destructor Destroy; override;
  38.     procedure Refresh;
  39.     procedure Report(var sl :TStringList);
  40.  
  41.     property About :string read FAbout;
  42.     property ExceptionMode: TExceptionMode read FMode Write SetMode;
  43.     property CPU :TCPU read FCPU;
  44.     property Memory :TMemory read FMemory;
  45.     property OS :TOperatingSystem read FOS;
  46.     property Disk :TDisk read FDisk;
  47.     property Machine :TMachine read FMachine;
  48.     property Network :TNetwork read FNetwork;
  49.     property Display :TDisplay read FDisplay;
  50.     property Media :TMedia read FMedia;
  51.     property Devices :TDevices read FDevices;
  52.     property Engines :TEngines read FEngines;
  53.     property APM :TAPM read FAPM;
  54.     property Printers :TPrinters read FPrinters;
  55.     property Software :TSoftware read FSoftware;
  56.     property Startup: TStartup read FStartup;
  57.   end;
  58.  
  59. implementation
  60.  
  61.  
  62.