home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Console.int < prev    next >
Text File  |  2003-08-26  |  3KB  |  89 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Console Object         }
  4. {           version 8.3 for Delphi 5,6,7                }
  5. {                                                       }
  6. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. {$INCLUDE MITEC_DEF.INC}
  11.  
  12. unit MSI_Console;
  13.  
  14. interface
  15.  
  16. uses
  17.   MSI_CPU, MSI_Machine, MSI_Devices, MSI_Display, MSI_Network, MSI_Media,
  18.   MSI_Memory, MSI_Engines, MSI_APM, MSI_Disk, MSI_OS, MSI_SMBIOS,
  19.   MSI_Printers, MSI_Software, MSI_Startup, MSI_Common, MSI_Storage, MSI_USB,
  20.   MSI_Processes,
  21.   Windows, SysUtils, Classes;
  22.  
  23. type
  24.   TSubObject = (soCPU, soMachine, soDevices, soDisplay, soNetwork, soMedia,
  25.                 soMemory, soStorage, soUSB, soEngines, soAPM, soDisk, soOS,
  26.                 soPrinters, soSoftware, soStartup, soProcesses);
  27.  
  28.   TSubObjects = set of TSubObject;
  29.  
  30. const
  31.   soAll = [soCPU, soMachine, soDevices, soDisplay, soNetwork, soMedia,
  32.            soMemory, soStorage, soUSB, soEngines, soAPM, soDisk, soOS,
  33.            soPrinters, soSoftware, soStartup, soProcesses];
  34.  
  35. type
  36.   TMSI = class(TPersistent)
  37.   private
  38.     fSubObjects: TSubObjects;
  39.     FCPU: TCPU;
  40.     FMemory: TMemory;
  41.     FOS :TOperatingSystem;
  42.     FDisk :TDisk;
  43.     FMachine: TMachine;
  44.     FNetwork: TNetwork;
  45.     FDisplay: TDisplay;
  46.     FEngines: TEngines;
  47.     FDevices: TDevices;
  48.     FAPM :TAPM;
  49.     FAbout: string;
  50.     FMedia: TMedia;
  51.     FPrinters: TPrinters;
  52.     FSoftware: TSoftware;
  53.     FStartup: TStartup;
  54.     FMode: TExceptionMode;
  55.     FStorage: TStorage;
  56.     FUSB: TUSB;
  57.     FProcessList: TProcessList;
  58.     procedure SetMode(const Value: TExceptionMode);
  59.   public
  60.     constructor Create(ASubObjects: TSubObjects = soAll);
  61.     destructor Destroy; override;
  62.     procedure Refresh;
  63.     procedure Report(var sl :TStringList);  virtual;
  64.     procedure ExportOverview(var sl: TStringList);
  65.  
  66.     property About :string read FAbout;
  67.     property ExceptionMode: TExceptionMode read FMode Write SetMode;
  68.     property CPU :TCPU read FCPU;
  69.     property Memory :TMemory read FMemory;
  70.     property OS :TOperatingSystem read FOS;
  71.     property Disk :TDisk read FDisk;
  72.     property Machine :TMachine read FMachine;
  73.     property Network :TNetwork read FNetwork;
  74.     property Display :TDisplay read FDisplay;
  75.     property Media :TMedia read FMedia;
  76.     property Devices :TDevices read FDevices;
  77.     property Storage :TStorage read FStorage;
  78.     property USB :TUSB read FUSB;
  79.     property Engines :TEngines read FEngines;
  80.     property APM :TAPM read FAPM;
  81.     property Printers :TPrinters read FPrinters;
  82.     property Software :TSoftware read FSoftware;
  83.     property Startup: TStartup read FStartup;
  84.     property ProcessList: TProcessList read FProcessList;
  85.   end;
  86.  
  87. implementation
  88.  
  89.