object frmExist: TfrmExist Left = 732 Top = 170 HelpContext = 150 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Does this Key Exist?' ClientHeight = 324 ClientWidth = 262 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poDefaultPosOnly OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object Label2: TLabel Left = 20 Top = 8 Width = 21 Height = 14 Caption = '&Hive' FocusControl = CBRootKey end object Label3: TLabel Left = 20 Top = 48 Width = 19 Height = 14 Caption = '&Key' FocusControl = edKeyPath end object Label4: TLabel Left = 20 Top = 88 Width = 58 Height = 14 Caption = 'Value &Name' FocusControl = edKeyName end object Label6: TLabel Left = 20 Top = 168 Width = 28 Height = 14 Caption = '&Value' FocusControl = edKeyValue end object Label5: TLabel Left = 20 Top = 128 Width = 58 Height = 14 Caption = 'Value &Type' FocusControl = cbKeyType end object CBRootKey: TComboBox Left = 20 Top = 24 Width = 221 Height = 22 Hint = 'Select the Root Key for the operation -- can only be HKEY_LOCAL_' + 'MACHINE or HKEY_USERS' Style = csDropDownList ItemHeight = 14 Items.Strings = ( 'HKEY_LOCAL_MACHINE' 'HKEY_USERS') TabOrder = 0 end object edKeyPath: TComboBox Left = 20 Top = 64 Width = 221 Height = 22 Hint = 'Enter the full path to the key. You may use the '#39'*'#39' in ONE plac' + 'e in the key to select all subkeys for that key. eg: SOFTWARE\IC' + 'C\USERS\*\ProgName will change the ProgName\Key = value for all ' + 'users under the SOFTWARE\ICC\USERS subkey' ItemHeight = 14 TabOrder = 1 end object edKeyName: TComboBox Left = 20 Top = 104 Width = 221 Height = 22 Hint = 'The Key Name to change' ItemHeight = 14 TabOrder = 2 end object cbKeyType: TComboBox Left = 20 Top = 144 Width = 221 Height = 22 Style = csDropDownList ItemHeight = 14 Items.Strings = ( 'REG_SZ' 'REG_DWORD' 'REG_MULTI_SZ' 'REG_EXPAND_SZ' 'REG_NONE') TabOrder = 3 end object edKeyValue: TComboBox Left = 20 Top = 183 Width = 221 Height = 22 Hint = 'Set the Key to this value' ItemHeight = 14 TabOrder = 4 end object chkIgnoreValue: TCheckBox Left = 20 Top = 208 Width = 217 Height = 17 Caption = 'Ignore Value (check key exists only)' TabOrder = 5 OnClick = chkIgnoreValueClick end object btnRun: TButton Left = 166 Top = 276 Width = 75 Height = 25 Caption = '&Run' Default = True TabOrder = 8 OnClick = btnRunClick end object btnStop: TButton Left = 20 Top = 276 Width = 75 Height = 25 Caption = '&Stop' Enabled = False TabOrder = 9 OnClick = btnStopClick end object chkLogIfNotExist: TCheckBox Left = 20 Top = 228 Width = 241 Height = 17 Caption = 'Log if the Entry does NOT Exist (Failure Log)' TabOrder = 6 end object chkLogIfExist: TCheckBox Left = 20 Top = 248 Width = 241 Height = 17 Caption = 'Log if the Entry DOES Exist (Success Log)' TabOrder = 7 end object sbGroup: TStatusBar Left = 0 Top = 305 Width = 262 Height = 19 Enabled = False Panels = < item Text = 'Sel:' Width = 80 end item Text = 'Proc:' Width = 80 end item Text = 'Fail:' Width = 80 end> SimplePanel = False SizeGrip = False end end