home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Software.int < prev    next >
Text File  |  2003-08-26  |  1KB  |  39 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {         Installed Software 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_Software;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, Windows, Classes;
  19.  
  20. type
  21.   TSoftware = class(TPersistent)
  22.   private
  23.     FProducts: TStrings;
  24.     FVersions: TStrings;
  25.     FUninstalls: TStrings;
  26.   public
  27.     constructor Create;
  28.     destructor Destroy; override;
  29.     procedure GetInfo;
  30.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  31.     property Uninstalls: TStrings read FUninstalls {$IFNDEF D6PLUS} write FUninstalls {$ENDIF} stored False;
  32.     property Versions: TStrings read FVersions {$IFNDEF D6PLUS} write FVersions {$ENDIF} stored False;
  33.   published
  34.     property Products: TStrings read FProducts {$IFNDEF D6PLUS} write FProducts {$ENDIF} stored false;
  35.   end;
  36.  
  37. implementation
  38.  
  39.