home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / MSYSINFO.ZIP / Int / MSI_Common.int < prev    next >
Encoding:
Text File  |  2002-03-01  |  1.2 KB  |  40 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       MiTeC System Information Component              }
  5. {     Common Routines, Definitions & Types              }
  6. {           version 7.4 for Delphi 5,6                  }
  7. {                                                       }
  8. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  9. {                                                       }
  10. {*******************************************************}
  11.  
  12. {$INCLUDE MITEC_DEF.INC}
  13.  
  14. unit MSI_Common;
  15.  
  16. interface
  17.  
  18. uses SysUtils, Windows, Classes;
  19.  
  20. type
  21.   TGetInfo1 = procedure of object;
  22.   TGetInfo2 = procedure(x: DWORD) of object;
  23.  
  24.   TExceptionMode = (emRaise, emMessage, emSilent);
  25.  
  26. const
  27.   cVersion = '7.4';
  28.   cCompName = 'MiTeC System Information Component';
  29.   cCopyright = 'Copyright ⌐ 1997,2002 Michal Mutl';
  30.  
  31.  
  32. procedure MSafeCall(Func: TGetInfo1; Description: string; Mode: TExceptionMode); overload;
  33. procedure MSafeCall(Func: TGetInfo2; X: DWORD; Description: string; Mode: TExceptionMode); overload;
  34.  
  35. procedure StringsToRep(sl: TStrings; CountKwd,ItemKwd: string; var Report: TStringlist);
  36.  
  37. implementation
  38.  
  39.  
  40.