home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / MSYSINFO.ZIP / Int / MSI_GUI.int < prev    next >
Encoding:
Text File  |  2002-03-04  |  2.5 KB  |  57 lines

  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Component              }
  5. {           version 7.3 for Delphi 5,6                  }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2002 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, 
  20.   MSI_Printers, MSI_Software, MSI_Startup, MSI_Common,
  21.   SysUtils, Windows, Classes;
  22.  
  23. type
  24.   TMSystemInfo = class(TComponent)
  25.   public
  26.     constructor Create(AOwner :TComponent); override;
  27.     destructor Destroy; override;
  28.     procedure Refresh;
  29.     procedure Report(var sl :TStringList);
  30.     procedure ShowModalOverview;
  31.     procedure ShowModalOverviewWithAbout;
  32.     procedure ShowOverview;
  33.     procedure ShowOverviewWithAbout;
  34.     procedure ExportOverview(var sl: TStringList);
  35.   published
  36.     property About :string read FAbout {$IFNDEF D6PLUS} write SetAbout {$ENDIF} stored False;
  37.     property ExceptionMode: TExceptionMode read FMode Write SetMode;
  38.     property CPU :TCPU read FCPU {$IFNDEF D6PLUS} write FCPU {$ENDIF};
  39.     property Memory :TMemory read FMemory {$IFNDEF D6PLUS} write FMemory {$ENDIF};
  40.     property OS :TOperatingSystem read FOS {$IFNDEF D6PLUS} write FOS {$ENDIF};
  41.     property Disk :TDisk read FDisk {$IFNDEF D6PLUS} write FDisk {$ENDIF};
  42.     property Machine :TMachine read FMachine {$IFNDEF D6PLUS} write FMachine {$ENDIF};
  43.     property Network :TNetwork read FNetwork {$IFNDEF D6PLUS} write FNetwork {$ENDIF};
  44.     property Display :TDisplay read FDisplay {$IFNDEF D6PLUS} write FDisplay {$ENDIF};
  45.     property Media :TMedia read FMedia {$IFNDEF D6PLUS} write FMedia {$ENDIF};
  46.     property Devices :TDevices read FDevices {$IFNDEF D6PLUS} write FDevices {$ENDIF};
  47.     property Engines :TEngines read FEngines {$IFNDEF D6PLUS} write FEngines {$ENDIF};
  48.     property APM :TAPM read FAPM {$IFNDEF D6PLUS} write FAPM {$ENDIF};
  49.     property Printers :TPrinters read FPrinters {$IFNDEF D6PLUS} write FPrinters {$ENDIF};
  50.     property Software :TSoftware read FSoftware {$IFNDEF D6PLUS} write FSoftware {$ENDIF};
  51.     property Startup: TStartup read FStartup {$IFNDEF D6PLUS} write FStartup {$ENDIF};
  52.   end;
  53.  
  54. implementation
  55.  
  56.  
  57.