home *** CD-ROM | disk | FTP | other *** search
-
- {*******************************************************}
- { }
- { MiTeC System Information Component }
- { version 7.3 for Delphi 5,6 }
- { }
- { Copyright ⌐ 1997,2002 Michal Mutl }
- { }
- {*******************************************************}
-
- {$INCLUDE MITEC_DEF.INC}
-
- unit MSI_GUI;
-
- interface
-
- uses
- MSI_CPU, MSI_Machine, MSI_Devices, MSI_Display, MSI_Network, MSI_Media,
- MSI_Memory, MSI_Engines, MSI_APM, MSI_Disk, MSI_OS,
- MSI_Printers, MSI_Software, MSI_Startup, MSI_Common,
- SysUtils, Windows, Classes;
-
- type
- TMSystemInfo = class(TComponent)
- public
- constructor Create(AOwner :TComponent); override;
- destructor Destroy; override;
- procedure Refresh;
- procedure Report(var sl :TStringList);
- procedure ShowModalOverview;
- procedure ShowModalOverviewWithAbout;
- procedure ShowOverview;
- procedure ShowOverviewWithAbout;
- procedure ExportOverview(var sl: TStringList);
- published
- property About :string read FAbout {$IFNDEF D6PLUS} write SetAbout {$ENDIF} stored False;
- property ExceptionMode: TExceptionMode read FMode Write SetMode;
- property CPU :TCPU read FCPU {$IFNDEF D6PLUS} write FCPU {$ENDIF};
- property Memory :TMemory read FMemory {$IFNDEF D6PLUS} write FMemory {$ENDIF};
- property OS :TOperatingSystem read FOS {$IFNDEF D6PLUS} write FOS {$ENDIF};
- property Disk :TDisk read FDisk {$IFNDEF D6PLUS} write FDisk {$ENDIF};
- property Machine :TMachine read FMachine {$IFNDEF D6PLUS} write FMachine {$ENDIF};
- property Network :TNetwork read FNetwork {$IFNDEF D6PLUS} write FNetwork {$ENDIF};
- property Display :TDisplay read FDisplay {$IFNDEF D6PLUS} write FDisplay {$ENDIF};
- property Media :TMedia read FMedia {$IFNDEF D6PLUS} write FMedia {$ENDIF};
- property Devices :TDevices read FDevices {$IFNDEF D6PLUS} write FDevices {$ENDIF};
- property Engines :TEngines read FEngines {$IFNDEF D6PLUS} write FEngines {$ENDIF};
- property APM :TAPM read FAPM {$IFNDEF D6PLUS} write FAPM {$ENDIF};
- property Printers :TPrinters read FPrinters {$IFNDEF D6PLUS} write FPrinters {$ENDIF};
- property Software :TSoftware read FSoftware {$IFNDEF D6PLUS} write FSoftware {$ENDIF};
- property Startup: TStartup read FStartup {$IFNDEF D6PLUS} write FStartup {$ENDIF};
- end;
-
- implementation
-
-
-