home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_GUI.int < prev    next >
Text File  |  2003-08-26  |  4KB  |  95 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Component              }
  5. {           version 8.3 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_GUI;
  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, MSI_SMBIOS,
  20.   MSI_Printers, MSI_Software, MSI_Startup, MSI_Common, MSI_Storage,
  21.   MSI_USB, MSI_Processes,
  22.   SysUtils, Windows, Classes;
  23.  
  24. type
  25.   TInfoPage = (pgWksta, pgOS, pgCPU, pgMem, pgDisplay, pgAPM, pgMedia, pgNet, pgDev,
  26.            pgPrn, pgStorage, pgUSB, pgEng, pgDisk, pgTZ, pgStartup, pgSoftware,
  27.            pgProcesses, pgAbout);
  28.  
  29.   TInfoPages = set of TInfoPage;
  30.  
  31. const
  32.   pgAll = [pgWksta, pgOS, pgCPU, pgMem, pgDisplay, pgAPM, pgMedia, pgNet, pgDev,
  33.            pgPrn, pgEng, pgStorage, pgUSB, pgDisk, pgTZ, pgStartup, pgSoftware, pgProcesses];
  34.  
  35. type
  36.   TMSystemInfo = class(TComponent)
  37.   private
  38.     FCPU: TCPU;                                
  39.     FMemory: TMemory;
  40.     FOS :TOperatingSystem;
  41.     FDisk :TDisk;
  42.     FMachine: TMachine;
  43.     FNetwork: TNetwork;
  44.     FDisplay: TDisplay;
  45.     FEngines: TEngines;
  46.     FDevices: TDevices;
  47.     FAPM :TAPM;
  48.     FAbout: string;
  49.     FMedia: TMedia;
  50.     FPrinters: TPrinters;
  51.     FSoftware: TSoftware;
  52.     FStartup: TStartup;
  53.     FMode: TExceptionMode;
  54.     FStorage: TStorage;
  55.     FUSB: TUSB;
  56.     FProcessList: TProcessList;
  57.     {$IFNDEF D6PLUS}
  58.     procedure SetAbout(const Value: string);
  59.     {$ENDIF}
  60.     procedure SetMode(const Value: TExceptionMode);
  61.   public
  62.     constructor Create(AOwner :TComponent); override;
  63.     destructor Destroy; override;
  64.     procedure Refresh;
  65.     procedure Report(var sl :TStringList); virtual;
  66.     procedure ShowModalOverview(ReportButton: Boolean = True; ForceRefresh: Boolean = True; APages: TInfoPages = pgAll);
  67.     procedure ShowModalOverviewWithAbout(ReportButton: Boolean = True; ForceRefresh: Boolean = True; APages: TInfoPages = pgAll);
  68.     procedure ShowOverview(ReportButton: Boolean = True; ForceRefresh: Boolean = True; APages: TInfoPages = pgAll);
  69.     procedure ShowOverviewWithAbout(ReportButton: Boolean = True; ForceRefresh: Boolean = True; APages: TInfoPages = pgAll);
  70.     procedure ExportOverview(var sl: TStringList);
  71.   published
  72.     property About :string read FAbout {$IFNDEF D6PLUS} write SetAbout {$ENDIF} stored False;
  73.     property ExceptionMode: TExceptionMode read FMode Write SetMode;
  74.     property CPU :TCPU read FCPU {$IFNDEF D6PLUS} write FCPU {$ENDIF};
  75.     property Memory :TMemory read FMemory {$IFNDEF D6PLUS} write FMemory {$ENDIF};
  76.     property OS :TOperatingSystem read FOS {$IFNDEF D6PLUS} write FOS {$ENDIF};
  77.     property Disk :TDisk read FDisk {$IFNDEF D6PLUS} write FDisk {$ENDIF};
  78.     property Machine :TMachine read FMachine {$IFNDEF D6PLUS} write FMachine {$ENDIF};
  79.     property Network :TNetwork read FNetwork {$IFNDEF D6PLUS} write FNetwork {$ENDIF};
  80.     property Display :TDisplay read FDisplay {$IFNDEF D6PLUS} write FDisplay {$ENDIF};
  81.     property Media :TMedia read FMedia {$IFNDEF D6PLUS} write FMedia {$ENDIF};
  82.     property Devices :TDevices read FDevices {$IFNDEF D6PLUS} write FDevices {$ENDIF};
  83.     property Storage :TStorage read FStorage {$IFNDEF D6PLUS} write FStorage {$ENDIF};
  84.     property USB :TUSB read FUSB {$IFNDEF D6PLUS} write FUSB {$ENDIF};
  85.     property Engines :TEngines read FEngines {$IFNDEF D6PLUS} write FEngines {$ENDIF};
  86.     property APM :TAPM read FAPM {$IFNDEF D6PLUS} write FAPM {$ENDIF};
  87.     property Printers :TPrinters read FPrinters {$IFNDEF D6PLUS} write FPrinters {$ENDIF};
  88.     property Software :TSoftware read FSoftware {$IFNDEF D6PLUS} write FSoftware {$ENDIF};
  89.     property Startup: TStartup read FStartup {$IFNDEF D6PLUS} write FStartup {$ENDIF};
  90.     property ProcessList: TProcessList read FProcessList {$IFNDEF D6PLUS} write FProcessList {$ENDIF};
  91.   end;
  92.  
  93. implementation
  94.  
  95.