home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_USB.int < prev   
Text File  |  2003-08-26  |  1KB  |  42 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {         MiTeC System Information Component            }
  4. {                USB Device Enumeration                 }
  5. {           version 8.3 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11.  
  12. {$INCLUDE MITEC_DEF.INC}
  13.  
  14. unit MSI_USB;
  15.  
  16. interface
  17.  
  18. uses SysUtils, Windows, Classes, MiTeC_USB;
  19.  
  20. type
  21.   TUSB= class(TPersistent)
  22.   private
  23.     FUSBNodes: TUSBNodes;
  24.     {$IFNDEF D6PLUS}
  25.     FCD: Byte;
  26.     {$ENDIF}
  27.     function GetConnectedDevices: Byte;
  28.     function GetUSBNode(Index: integer): TUSBNode;
  29.     function GetUSBNodeCount: Integer;
  30.   public
  31.     destructor Destroy; override;
  32.     procedure GetInfo;
  33.     procedure Report(var sl: TStringList; Standalone: Boolean = True); virtual;
  34.     property USBNodeCount: Integer read GetUSBNodeCount;
  35.     property USBNodes[Index: integer]: TUSBNode read GetUSBNode;
  36.   published
  37.     property ConnectedDevices: Byte read GetConnectedDevices {$IFNDEF D6PLUS} Write FCD {$ENDIF} stored False;
  38.   end;
  39.  
  40. implementation
  41.  
  42.