home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Engines.int < prev    next >
Text File  |  2003-08-26  |  3KB  |  83 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {               Engine 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_Engines;
  14.  
  15. interface
  16.  
  17. uses
  18.   {$IFDEF D6PLUS} Variants, {$ENDIF} MiTeC_WnASPI32, MSI_Common,
  19.   SysUtils, Windows, Classes;
  20.  
  21. type
  22.   TDirectX = class(TPersistent)
  23.   private
  24.     FVersion: string;
  25.     FDirect3D: TStrings;
  26.     FDirectPlay: TStrings;
  27.     FDirectMusic: TStrings;
  28.   public
  29.     constructor Create;
  30.     destructor Destroy; override;
  31.     procedure GetInfo;
  32.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  33.   published
  34.     property Version :string read FVersion {$IFNDEF D6PLUS} write FVersion {$ENDIF} stored false;
  35.     property Direct3D :TStrings read FDirect3D {$IFNDEF D6PLUS} write FDirect3D {$ENDIF} stored false;
  36.     property DirectPlay :TStrings read FDirectPlay {$IFNDEF D6PLUS} write FDirectPlay {$ENDIF} stored false;
  37.     property DirectMusic :TStrings read FDirectMusic {$IFNDEF D6PLUS} write FDirectMusic {$ENDIF} stored false;
  38.   end;
  39.  
  40.   TASPI32 = class(TPersistent)
  41.   private
  42.     FASPI: string;
  43.     FASPIConfig: TASPIConfig;
  44.   public
  45.     constructor Create;
  46.     destructor Destroy; override;
  47.     procedure GetInfo;
  48.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  49.   published
  50.     property ASPI :string read FASPI {$IFNDEF D6PLUS} write FASPI {$ENDIF} stored False;
  51.   public
  52.     property Configuration: TASPIConfig read FASPIConfig;
  53.   end;
  54.  
  55.   TEngines = class(TPersistent)
  56.   private
  57.     FBDE: string;
  58.     FODBC: string;
  59.     FDAO: string;
  60.     FADO: string;
  61.     FASPI32: TASPI32;
  62.     FDirectX: TDirectX;
  63.     FMode: TExceptionMode;
  64.   public
  65.     constructor Create;
  66.     destructor Destroy; override;
  67.     procedure GetInfo;
  68.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  69.   published
  70.     property ExceptionMode: TExceptionMode read FMode write FMode;
  71.  
  72.     property ODBC :string read FODBC {$IFNDEF D6PLUS} write FODBC {$ENDIF} stored false;
  73.     property BDE :string read FBDE {$IFNDEF D6PLUS} write FBDE {$ENDIF} stored false;
  74.     property DAO :string read FDAO {$IFNDEF D6PLUS} write FDAO {$ENDIF} stored False;
  75.     property ADO :string read FADO {$IFNDEF D6PLUS} write FADO {$ENDIF} stored False;
  76.  
  77.     property DirectX: TDirectX read FDirectX {$IFNDEF D6PLUS} write FDirectX {$ENDIF} stored False;
  78.     property ASPI32: TASPI32 read FASPI32 {$IFNDEF D6PLUS} write FASPI32 {$ENDIF} stored False;
  79.   end;
  80.  
  81. implementation
  82.  
  83.