home *** CD-ROM | disk | FTP | other *** search
-
- {*******************************************************}
- { }
- { MiTeC System Information Component }
- { Machine Detection Part }
- { version 7.4 for Delphi 5,6 }
- { }
- { Copyright ⌐ 1997,2002 Michal Mutl }
- { }
- {*******************************************************}
-
- {$INCLUDE MITEC_DEF.INC}
-
- unit MSI_Machine;
-
- interface
-
- uses
- SysUtils, Windows, Classes, MSI_Common, MSI_SMBIOS;
-
- type
- TMachine = class(TPersistent)
- public
- constructor Create;
- destructor Destroy; override;
- procedure GetInfo;
- procedure Report(var sl :TStringList);
- published
- property ExceptionMode: TExceptionMode read FMode write FMode;
- property Name :string read FName {$IFNDEF D6PLUS} write FName {$ENDIF} stored false;
- property User :string read FUser {$IFNDEF D6PLUS} write FUser {$ENDIF} stored false;
- property SystemUpTime :Extended read FSystemUpTime {$IFNDEF D6PLUS} write FSystemUpTime {$ENDIF} stored false;
- property LastBoot :TDatetime read FLastBoot {$IFNDEF D6PLUS} write FLastBoot {$ENDIF} stored false;
- property CapsLock: Boolean read FCapsLock {$IFNDEF D6PLUS} write FCapsLock {$ENDIF} stored false;
- property NumLock: Boolean read FNumLock {$IFNDEF D6PLUS} write FNumLock {$ENDIF} stored false;
- property ScrollLock: Boolean read FScrollLock {$IFNDEF D6PLUS} write FScrollLock {$ENDIF} stored false;
- property Computer: string read FComp {$IFNDEF D6PLUS} write FComp {$ENDIF} stored False;
- property SMBIOS: TSMBIOS read FSMBIOS {$IFNDEF D6PLUS} write FSMBIOS {$ENDIF} stored False;
- end;
-
-
- implementation
-
-
-