home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Machine.int < prev    next >
Text File  |  2003-08-26  |  3KB  |  73 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {               Machine Detection Part                  }
  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_Machine;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, Windows, Classes, MSI_Common, MSI_SMBIOS;
  19.  
  20. type
  21.   TBIOS = class(TPersistent)
  22.   private
  23.     FBIOSExtendedInfo: string;
  24.     FBIOSCopyright: string;
  25.     FBIOSName: string;
  26.     FBIOSDate: string;
  27.   public
  28.     procedure GetInfo;
  29.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  30.   published
  31.     property Copyright :string read FBIOSCopyright {$IFNDEF D6PLUS} write FBIOSCopyright {$ENDIF} stored false;
  32.     property Date :string read FBIOSDate {$IFNDEF D6PLUS} write FBIOSDate {$ENDIF} stored false;
  33.     property ExtendedInfo :string read FBIOSExtendedInfo {$IFNDEF D6PLUS} write FBIOSExtendedInfo {$ENDIF} stored false;
  34.     property Name :string read FBIOSName {$IFNDEF D6PLUS} write FBIOSName {$ENDIF} stored false;
  35.   end;
  36.  
  37.   TMachine = class(TPersistent)
  38.   private
  39.     FName: string;
  40.     FLastBoot: TDatetime;
  41.     FUser: string;
  42.     FSystemUpTime: Extended;
  43.     FScrollLock: Boolean;
  44.     FNumLock: Boolean;
  45.     FCapsLock: Boolean;
  46.     FComp: string;
  47.     FSMBIOS: TSMBIOS;
  48.     FMode: TExceptionMode;
  49.     FBIOS: TBIOS;
  50.     function GetSystemUpTime: Extended;
  51.   public
  52.     constructor Create;
  53.     destructor Destroy; override;
  54.     procedure GetInfo(IncludeSMBIOS: DWORD = 1);
  55.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  56.   published
  57.     property ExceptionMode: TExceptionMode read FMode write FMode;
  58.     property Name :string read FName {$IFNDEF D6PLUS} write FName {$ENDIF} stored false;
  59.     property User :string read FUser {$IFNDEF D6PLUS} write FUser {$ENDIF} stored false;
  60.     property SystemUpTime :Extended read FSystemUpTime {$IFNDEF D6PLUS} write FSystemUpTime {$ENDIF} stored false;
  61.     property LastBoot :TDatetime read FLastBoot {$IFNDEF D6PLUS} write FLastBoot {$ENDIF} stored false;
  62.     property CapsLock: Boolean read FCapsLock {$IFNDEF D6PLUS} write FCapsLock {$ENDIF} stored false;
  63.     property NumLock: Boolean read FNumLock {$IFNDEF D6PLUS} write FNumLock {$ENDIF} stored false;
  64.     property ScrollLock: Boolean read FScrollLock {$IFNDEF D6PLUS} write FScrollLock {$ENDIF} stored false;
  65.     property Computer: string read FComp {$IFNDEF D6PLUS} write FComp {$ENDIF} stored False;
  66.     property SMBIOS: TSMBIOS read FSMBIOS  {$IFNDEF D6PLUS} write FSMBIOS {$ENDIF} stored False;
  67.     property BIOS: TBIOS read FBIOS  {$IFNDEF D6PLUS} write FBIOS {$ENDIF} stored False;
  68.   end;
  69.  
  70.  
  71. implementation
  72.  
  73.