home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Media.int < prev    next >
Encoding:
Text File  |  2003-08-26  |  1.9 KB  |  51 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {               Media Detection Part                    }
  5. {           version 8.0 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Media;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, Windows, Classes, MMSystem;
  19.  
  20. type
  21.   TMedia = class(TPersistent)
  22.   private
  23.     FDevice,
  24.     FAUX,
  25.     FMIDIIn,
  26.     FMixer,
  27.     FWAVEOut,
  28.     FWAVEIn,
  29.     FMIDIOut: TStrings;
  30.     FSCI: integer;
  31.     FGPI: integer;
  32.   public
  33.     constructor Create;
  34.     destructor Destroy; override;
  35.     procedure GetInfo;
  36.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  37.   published
  38.     property GamePortIndex: integer read FGPI {$IFNDEF D6PLUS} write FGPI {$ENDIF} stored false;
  39.     property SoundCardIndex: integer read FSCI {$IFNDEF D6PLUS} write FSCI {$ENDIF} stored False;
  40.     property Devices :TStrings read FDevice {$IFNDEF D6PLUS} write FDevice {$ENDIF} stored false;
  41.     property WAVEIn :TStrings read FWAVEIn {$IFNDEF D6PLUS} write FWAVEIn {$ENDIF} stored false;
  42.     property WAVEOut :TStrings read FWAVEOut {$IFNDEF D6PLUS} write FWAVEOut {$ENDIF} stored false;
  43.     property MIDIIn :TStrings read FMIDIIn {$IFNDEF D6PLUS} write FMIDIIn {$ENDIF} stored false;
  44.     property MIDIOut :TStrings read FMIDIOut {$IFNDEF D6PLUS} write FMIDIOut {$ENDIF} stored false;
  45.     property AUX :TStrings read FAUX {$IFNDEF D6PLUS} write FAUX {$ENDIF} stored false;
  46.     property Mixer :TStrings read FMixer {$IFNDEF D6PLUS} write FMixer {$ENDIF} stored false;
  47.   end;
  48.  
  49. implementation
  50.  
  51.