object dlgMain: TdlgMain Left = 303 Top = 50 HelpContext = 15100 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'dlgMain' ClientHeight = 392 ClientWidth = 410 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = mnuMain Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object barStatus: TStatusBar Left = 0 Top = 373 Width = 410 Height = 19 Panels = <> SimplePanel = True SizeGrip = False end object grpGeneral: TGroupBox Left = 16 Top = 8 Width = 377 Height = 137 Caption = 'General options' TabOrder = 0 object lblDirectory: TLabel Left = 8 Top = 16 Width = 73 Height = 13 Caption = 'Install directory:' end object lblLicense: TLabel Left = 8 Top = 64 Width = 121 Height = 13 Caption = 'Transfer license template:' end object edtDirectory: TEdit Left = 8 Top = 32 Width = 329 Height = 21 HelpContext = 15120 TabOrder = 0 Text = 'C:\IV' OnChange = SomethingClicked end object btnDirectory: TBitBtn Left = 345 Top = 32 Width = 24 Height = 21 Hint = 'Browse for directory' HelpContext = 15120 TabOrder = 1 OnClick = btnDirectoryClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF755555555557000075555555555577775555555555} NumGlyphs = 2 Spacing = 0 end object chkCreateGroup: TCheckBox Left = 8 Top = 112 Width = 233 Height = 17 Caption = 'Create Program Manager / Start Menu group' TabOrder = 2 OnClick = SomethingClicked end object edtLicense: TEdit Left = 8 Top = 80 Width = 329 Height = 21 HelpContext = 15120 TabOrder = 3 OnChange = SomethingClicked end object btnLicense: TBitBtn Left = 345 Top = 80 Width = 24 Height = 21 Hint = 'Browse for license template' HelpContext = 15120 TabOrder = 4 OnClick = btnLicenseClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF755555555557000075555555555577775555555555} NumGlyphs = 2 Spacing = 0 end end object pagOptions: TPageControl Left = 16 Top = 160 Width = 377 Height = 201 ActivePage = tabRT MultiLine = True TabOrder = 2 object tabIVB: TTabSheet Caption = 'Audit && Integrity' object bvl1: TBevel Left = 8 Top = 32 Width = 353 Height = 9 Shape = bsTopLine end object btnIVBOptions: TBitBtn Left = 16 Top = 68 Width = 81 Height = 25 Hint = 'Open options dialog box' Caption = '&Options...' TabOrder = 1 OnClick = btnOptionsClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF5755555335000005555555577577777555555} NumGlyphs = 2 end object chkInstIVB: TCheckBox Left = 16 Top = 8 Width = 225 Height = 17 Caption = 'Install IV Audit and Integrity Expert System' State = cbChecked TabOrder = 0 OnClick = InstallOrNotClicked end object chkIVBCanOpt: TCheckBox Left = 16 Top = 40 Width = 145 Height = 17 Caption = '&User can change options' State = cbChecked TabOrder = 2 OnClick = SomethingClicked end end object tabIVM: TTabSheet Caption = 'Macro Sweeper' object bvl2: TBevel Left = 8 Top = 32 Width = 353 Height = 9 Shape = bsTopLine end object btnIVMOptions: TBitBtn Left = 16 Top = 68 Width = 81 Height = 25 Hint = 'Open options dialog box' Caption = '&Options...' TabOrder = 1 OnClick = btnOptionsClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF5755555335000005555555577577777555555} NumGlyphs = 2 end object chkInstIVM: TCheckBox Left = 16 Top = 8 Width = 145 Height = 17 Caption = 'Install IV Macro Sweeper' State = cbChecked TabOrder = 0 OnClick = InstallOrNotClicked end object chkIVMCanOpt: TCheckBox Left = 16 Top = 40 Width = 145 Height = 17 Caption = '&User can change options' State = cbChecked TabOrder = 2 OnClick = SomethingClicked end end object tabRT: TTabSheet Caption = 'Real-Time Protection' object bvl3: TBevel Left = 8 Top = 32 Width = 353 Height = 9 Shape = bsTopLine end object chkInstIVI: TCheckBox Left = 16 Top = 8 Width = 113 Height = 17 Caption = 'Install IV Interceptor' State = cbChecked TabOrder = 0 OnClick = InstallOrNotClicked end object chkInstDog: TCheckBox Left = 200 Top = 8 Width = 113 Height = 17 Caption = 'Install IV Watchdog' State = cbChecked TabOrder = 1 OnClick = InstallOrNotClicked end object grpIVIOptions: TGroupBox Left = 8 Top = 40 Width = 169 Height = 121 Caption = 'IV Interceptor Options' TabOrder = 2 object chkIVIDoClean: TCheckBox Left = 8 Top = 16 Width = 153 Height = 17 Caption = 'Deactivate macros on the &fly' TabOrder = 0 OnClick = SomethingClicked end object chkIVIShowDlg: TCheckBox Left = 8 Top = 36 Width = 129 Height = 17 Caption = 'Don'#39't show &messages' TabOrder = 1 OnClick = SomethingClicked end object chkIVINotExecutables: TCheckBox Left = 8 Top = 76 Width = 89 Height = 17 Caption = '&Check all files' TabOrder = 3 OnClick = SomethingClicked end object chkIVILoad: TCheckBox Left = 8 Top = 96 Width = 121 Height = 17 Caption = '&Load with Windows' State = cbChecked TabOrder = 4 OnClick = SomethingClicked end object chkDontWarn: TCheckBox Left = 8 Top = 56 Width = 153 Height = 17 Caption = 'Don'#39't &show startup warnings' TabOrder = 2 OnClick = SomethingClicked end end object grpDogOptions: TGroupBox Left = 192 Top = 40 Width = 169 Height = 65 Caption = 'IV Watchdog Options' TabOrder = 3 object chkDogDoClean: TCheckBox Left = 8 Top = 16 Width = 153 Height = 17 Caption = 'De&activate macros on the fly' TabOrder = 0 OnClick = SomethingClicked end object chkDogChangeIcon: TCheckBox Left = 8 Top = 40 Width = 153 Height = 17 Caption = 'C&hange default .DOC icon' TabOrder = 1 OnClick = SomethingClicked end end object btnExeExclude: TBitBtn Left = 192 Top = 124 Width = 169 Height = 25 Hint = 'Open executables exclude list dialog box' Caption = '&EXE Includes/Excludes...' TabOrder = 4 OnClick = btnOptionsClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF5755555335000005555555577577777555555} NumGlyphs = 2 end end object tabScheduler: TTabSheet Caption = 'IV Scheduler' object bvl4: TBevel Left = 8 Top = 32 Width = 353 Height = 9 Shape = bsTopLine end object chkInstSched: TCheckBox Left = 16 Top = 8 Width = 225 Height = 17 Caption = 'Install IV Scheduler' State = cbChecked TabOrder = 0 OnClick = InstallOrNotClicked end object grpSchedIVB: TGroupBox Left = 8 Top = 40 Width = 353 Height = 57 Caption = 'Audit && Integrity Schedule' TabOrder = 1 object lblSchedIVB: TLabel Left = 8 Top = 16 Width = 265 Height = 33 AutoSize = False Caption = 'Scheduled to run at Wednesday, 15:00 PM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object btnSchedIVB: TBitBtn Left = 280 Top = 24 Width = 65 Height = 25 Caption = 'Change' TabOrder = 0 OnClick = btnSchedClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031 00333773F77777FF7733331000909000133333377737F777FF33330098F0F890 0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9 903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9 9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890 03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008 77037F3377777773337F088887707888870373F3337773F33373307880707088 7033373FF737F73FF733337003303300733333777337FF777333333333000333 3333333333777333333333333333333333333333333333333333} NumGlyphs = 2 end end object grpSchedIVM: TGroupBox Left = 8 Top = 104 Width = 353 Height = 57 Caption = 'Macro Sweeper Schedule' TabOrder = 2 object lblSchedIVM: TLabel Left = 8 Top = 16 Width = 265 Height = 33 AutoSize = False Caption = 'Scheduled to run at Wednesday, 15:00 PM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object btnSchedIVM: TBitBtn Left = 280 Top = 24 Width = 65 Height = 25 Caption = 'Change' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnSchedClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031 00333773F77777FF7733331000909000133333377737F777FF33330098F0F890 0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9 903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9 9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890 03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008 77037F3377777773337F088887707888870373F3337773F33373307880707088 7033373FF737F73FF733337003303300733333777337FF777333333333000333 3333333333777333333333333333333333333333333333333333} NumGlyphs = 2 end end end end object mnuMain: TMainMenu Left = 256 object mnuFile: TMenuItem Caption = '&File' HelpContext = 15130 object mnuFileOpen: TMenuItem Caption = 'Open...' Hint = 'Open INI file' ShortCut = 114 OnClick = mnuFileOpenClick end object mnuFileSave: TMenuItem Caption = '&Save' Hint = 'Save INI file' ShortCut = 113 OnClick = mnuFileSaveClick end object mnuFileSaveAs: TMenuItem Caption = 'Save &As...' Hint = 'Save current INI file under a diffferent name' OnClick = mnuFileSaveAsClick end object mnuN1: TMenuItem Caption = '-' end object mnuFileExit: TMenuItem Caption = 'E&xit' Hint = 'Terminate this application' OnClick = mnuFileExitClick end end object mnuRegistry: TMenuItem Caption = '&Registry' HelpContext = 15130 object mnuRegistryGet: TMenuItem Caption = '&Get Options' Hint = 'Read current options from the system Registry' OnClick = mnuRegistryGetClick end object mnuRegistrySet: TMenuItem Caption = '&Set Options' Hint = 'Write current options to the system Registry' OnClick = mnuRegistrySetClick end end object mnuHelp: TMenuItem Caption = '&Help' HelpContext = 15130 object mnuHelpTopics: TMenuItem Caption = '&Help topics' Hint = 'Help me!' ShortCut = 112 OnClick = mnuHelpTopicsClick end object mnuHelpAbout: TMenuItem Caption = '&About...' Hint = 'About this program' OnClick = mnuHelpAboutClick end end end object dlgOpenFile: TOpenDialog DefaultExt = 'ini' Filter = 'INI files|*.ini|All files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Open INI file' Left = 192 end object dlgSaveFile: TSaveDialog DefaultExt = 'ini' Filter = 'INI files|*.ini|All files|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Left = 160 end object dlgOpenLic: TOpenDialog DefaultExt = 'txt' Filter = 'TXT files|*.txt|All files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Open license template' Left = 224 end end