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

  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Component              }
  5. {               Machine Detection Part                  }
  6. {           version 7.4 for Delphi 5,6                  }
  7. {                                                       }
  8. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  9. {                                                       }
  10. {*******************************************************}
  11.  
  12. {$INCLUDE MITEC_DEF.INC}
  13.  
  14. unit MSI_Machine;
  15.  
  16. interface
  17.  
  18. uses
  19.   SysUtils, Windows, Classes, MSI_Common, MSI_SMBIOS;
  20.  
  21. type
  22.   TMachine = class(TPersistent)
  23.   public
  24.     constructor Create;
  25.     destructor Destroy; override;
  26.     procedure GetInfo;
  27.     procedure Report(var sl :TStringList);
  28.   published
  29.     property ExceptionMode: TExceptionMode read FMode write FMode;
  30.     property Name :string read FName {$IFNDEF D6PLUS} write FName {$ENDIF} stored false;
  31.     property User :string read FUser {$IFNDEF D6PLUS} write FUser {$ENDIF} stored false;
  32.     property SystemUpTime :Extended read FSystemUpTime {$IFNDEF D6PLUS} write FSystemUpTime {$ENDIF} stored false;
  33.     property LastBoot :TDatetime read FLastBoot {$IFNDEF D6PLUS} write FLastBoot {$ENDIF} stored false;
  34.     property CapsLock: Boolean read FCapsLock {$IFNDEF D6PLUS} write FCapsLock {$ENDIF} stored false;
  35.     property NumLock: Boolean read FNumLock {$IFNDEF D6PLUS} write FNumLock {$ENDIF} stored false;
  36.     property ScrollLock: Boolean read FScrollLock {$IFNDEF D6PLUS} write FScrollLock {$ENDIF} stored false;
  37.     property Computer: string read FComp {$IFNDEF D6PLUS} write FComp {$ENDIF} stored False;
  38.     property SMBIOS: TSMBIOS read FSMBIOS  {$IFNDEF D6PLUS} write FSMBIOS {$ENDIF} stored False;
  39.   end;
  40.  
  41.  
  42. implementation
  43.  
  44.  
  45.