home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / MSYSINFO.ZIP / Int / MSI_Software.int < prev    next >
Encoding:
Text File  |  2002-03-04  |  1.0 KB  |  36 lines

  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Component              }
  5. {         Installed Software Detection Part             }
  6. {           version 7.3 for Delphi 5,6                  }
  7. {                                                       }
  8. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  9. {                                                       }
  10. {*******************************************************}
  11.  
  12. {$INCLUDE MITEC_DEF.INC}
  13.  
  14. unit MSI_Software;
  15.  
  16. interface
  17.  
  18. uses
  19.   SysUtils, Windows, Classes;
  20.  
  21. type
  22.   TSoftware = class(TPersistent)
  23.   public
  24.     constructor Create;
  25.     destructor Destroy; override;
  26.     procedure GetInfo;
  27.     procedure Report(var sl :TStringList);
  28.     property Uninstalls: TStrings read FUninstalls {$IFNDEF D6PLUS} write FUninstalls {$ENDIF} stored False;
  29.   published
  30.     property Products: TStrings read FProducts {$IFNDEF D6PLUS} write FProducts {$ENDIF} stored false;
  31.   end;
  32.  
  33. implementation
  34.  
  35.  
  36.