home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Startup.int < prev    next >
Text File  |  2003-08-26  |  6KB  |  135 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {           Startup Runs Detection Part                 }
  5. {           version 8.3 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Startup;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, Windows, Classes;
  19.  
  20. type
  21.   TRunType = (rtHKCU, rtHKLM, rtHKLMOnce, rtHKCUOnce, rtHKLMOnceEx, rtHKCUOnceEx,
  22.               rtHKLMServices, rtHKLMServicesOnce, rtHKCUServices, rtHKCUServicesOnce,
  23.               rtHKLMSessionManager, rtHKLMWinLogon, rtHKCULoad,
  24.               rtUser, rtCommon, rtWinINI, rtSystemINI);
  25.  
  26.   TStartup = class(TPersistent)
  27.   private
  28.     FHKCU_Runs: TStringList;
  29.     FHKLM_Runs: TStringList;
  30.     FHKCUOnce_Runs: TStringList;
  31.     FHKLMOnce_Runs: TStringList;
  32.     FHKCUOnceEx_Runs: TStringList;
  33.     FHKLMOnceEx_Runs: TStringList;
  34.     FHKLMServices_Runs: TStringList;
  35.     FHKLMServicesOnce_Runs: TStringList;
  36.     FHKCUServices_Runs: TStringList;
  37.     FHKCUServicesOnce_Runs: TStringList;
  38.     FHKLMSessionManager_Runs: TStringList;
  39.     FHKLMWinLogon_Runs: TStringList;
  40.     FHKCULoad_Runs: TStringList;
  41.     FUser_Runs: TStringList;
  42.     FCommon_Runs: TStringList;
  43.     FWININI_Runs: TStringList;
  44.     FSYSTEMINI_Runs: TStringList;
  45.  
  46.     procedure ClearList(var L: TStringList);
  47.  
  48.     function GetCommonRun(Index: integer): string;
  49.     function GetHKCU(Index: integer): string;
  50.     function GetHKLM(Index: integer): string;
  51.     function GetRunHKCUOnce(Index: integer): string;
  52.     function GetUserRun(Index: integer): string;
  53.     function GetCount: integer;
  54.     {$IFNDEF D6PLUS}
  55.     procedure SetCount(const Value: integer);
  56.     {$ENDIF}
  57.     function GetCommonCount: integer;
  58.     function GetHKCUCount: integer;
  59.     function GetHKLMCount: integer;
  60.     function GetHKCUOnceCount: integer;
  61.     function GetUserCount: integer;
  62.     function GetWININICount: integer;
  63.     function GetWININIRun(Index: integer): string;
  64.     function GetSYSTEMINICount: integer;
  65.     function GetSYSTEMINIRun(Index: integer): string;
  66.     function GetHKCUOnceExCount: integer;
  67.     function GetHKLMOnceCount: integer;
  68.     function GetHKLMOnceExCount: integer;
  69.     function GetHKLMServicesCount: integer;
  70.     function GetRunHKCUOnceEx(Index: integer): string;
  71.     function GetRunHKLMOnce(Index: integer): string;
  72.     function GetRunHKLMOnceEx(Index: integer): string;
  73.     function GetRunHKLMServices(Index: integer): string;
  74.     function GetHKLMServicesOnceCount: integer;
  75.     function GetRunHKLMServicesOnce(Index: integer): string;
  76.     function GetHKCUServicesCount: integer;
  77.     function GetHKCUServicesOnceCount: integer;
  78.     function GetRunHKCUServices(Index: integer): string;
  79.     function GetRunHKCUServicesOnce(Index: integer): string;
  80.     function GetHKLMSessionManagerCount: integer;
  81.     function GetHKCULoadCount: integer;
  82.     function GetHKLMWinLogonCount: integer;
  83.     function GetRunHKLMSessionManager(Index: integer): string;
  84.     function GetRunHKCULoad(Index: integer): string;
  85.     function GetRunHKLMWinLogon(Index: integer): string;
  86.   public
  87.     constructor Create;
  88.     destructor Destroy; override;
  89.     procedure GetInfo;
  90.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  91.  
  92.     property HKCU_Runs[Index: integer]: string read GetHKCU;
  93.     property HKCU_Count: integer read GetHKCUCount;
  94.     property HKLM_Runs[Index: integer]: string read GetHKLM;
  95.     property HKLM_Count: integer read GetHKLMCount;
  96.     property HKLMOnce_Runs[Index: integer]: string read GetRunHKLMOnce;
  97.     property HKLMOnce_Count: integer read GetHKLMOnceCount;
  98.     property HKCUOnce_Runs[Index: integer]: string read GetRunHKCUOnce;
  99.     property HKCUOnce_Count: integer read GetHKCUOnceCount;
  100.     property HKLMOnceEx_Runs[Index: integer]: string read GetRunHKLMOnceEx;
  101.     property HKLMOnceEx_Count: integer read GetHKLMOnceExCount;
  102.     property HKCUOnceEx_Runs[Index: integer]: string read GetRunHKCUOnceEx;
  103.     property HKCUOnceEx_Count: integer read GetHKCUOnceExCount;
  104.     property HKLMServices_Runs[Index: integer]: string read GetRunHKLMServices;
  105.     property HKLMServices_Count: integer read GetHKLMServicesCount;
  106.     property HKLMServicesOnce_Runs[Index: integer]: string read GetRunHKLMServicesOnce;
  107.     property HKLMServicesOnce_Count: integer read GetHKLMServicesOnceCount;
  108.     property HKCUServices_Runs[Index: integer]: string read GetRunHKCUServices;
  109.     property HKCUServices_Count: integer read GetHKCUServicesCount;
  110.     property HKCUServicesOnce_Runs[Index: integer]: string read GetRunHKCUServicesOnce;
  111.     property HKCUServicesOnce_Count: integer read GetHKCUServicesOnceCount;
  112.     property HKLMSessionManager_Runs[Index: integer]: string read GetRunHKLMSessionManager;
  113.     property HKLMSessionManager_Count: integer read GetHKLMSessionManagerCount;
  114.     property HKLMWinLogon_Runs[Index: integer]: string read GetRunHKLMWinLogon;
  115.     property HKLMWinLogon_Count: integer read GetHKLMWinLogonCount;
  116.     property HKCULoad_Runs[Index: integer]: string read GetRunHKCULoad;
  117.     property HKCULoad_Count: integer read GetHKCULoadCount;
  118.     property User_Runs[Index: integer]: string read GetUserRun;
  119.     property User_Count: integer read GetUserCount;
  120.     property Common_Runs[Index: integer]: string read GetCommonRun;
  121.     property Common_Count: integer read GetCommonCount;
  122.     property WinINI_Runs[Index: integer]: string read GetWININIRun;
  123.     property WinINI_Count: integer read GetWININICount;
  124.     property SystemINI_Runs[Index: integer]: string read GetSYSTEMINIRun;
  125.     property SystemINI_Count: integer read GetSYSTEMINICount;
  126.  
  127.     function GetRunCommand(AType: TRunType; Index: integer): string;
  128.   published
  129.     property RunsCount: integer read GetCount {$IFNDEF D6PLUS} write SetCount {$ENDIF} stored False;
  130.   end;
  131.  
  132.  
  133. implementation
  134.  
  135.