examples/RegistryClasses.hta

<html>
<head>
    <hta:application
        applicationName="Registry classes manager"
        helpFile="RegistryClasses.md"
        icon="regedit.exe"
        innerBorder="No"
        singleinstance="Yes"
        scroll="No">
    <script language="VBScript"
        src="src/RegistryClasses.vbs">
    </script>
</head>
<body>

    <!-- Hive selector -->
    <p class="inputLabel"> Hive</p>
    <select id="hiveSelector" onchange="RefreshFields"></select>

    <!-- File type -->
    <p class="inputLabel"> File type: extension name or * </p>
    <input
        type="text"
        id="fileType"
        onchange="fileType_OnKeyUp"
        class="textInput spaceBottom" />
    <input
        type="button"
        id="deleteFileType"
        value="Delete file type"
        class="spaceLeft spaceBottom" /><br />

    <!-- ProgId -->
    <span class="inputLabel spaceTop"> ProgId </span>
    <input
        type="checkbox"
        id="useRegPid"
        class="spaceLeft"
        onclick="RefreshFields"
        title="When checked, the ProgId from the file-type key (e.g. Software\Classes\.txt) is used"
        checked /> Use registry value if available <br />
    <input
        type="text"
        id="progId"
        class="textInput" />
    <input
        type="button"
        id="deleteProgId"
        value="Delete ProgId"
        class="spaceLeft" /><br />

    <!-- Verb selector -->
    <p class="inputLabel"> Verb
        <input
            type="checkbox"
            id="extended"
            class="spaceLeft" />
        <span> Require <i> shift </i> + right click </span>
    </p>
    <select id="verbSelector" class="spaceRight"></select>
    <input
        type="button"
        id="deleteVerb"
        value="Delete verb" /><br />

    <!-- Command -->
    <div id="commandFields">
        <span class="inputLabel"> Command
            <input
                type="checkbox"
                id="commandEnabler"
                class="spaceLeft" /> Edit
        </span><br />
        <input
            type="text"
            id="command"
            class="filespec"
            onchange="command_OnKeyUp" />
        <input
            type="button"
            id="browseForCommandButton"
            value="..." />
    </div>

    <!-- New verb, Configure class, and Elevate buttons -->
    <input
        type="button"
        id="newVerbButton"
        value="New verb"
        class="spaceTop" />
    <input
        type="button"
        id="configureClassButton"
        value="Configure class"
        class="spaceLeft spaceRight" />
    <input
        type="button"
        id="elevateButton"
        value="Elevate"
        title="Elevate privileges"
        class="spaceTop" />

    <!-- New verb subfields -->
    <fieldset id="newVerbSubfields">
        <legend id="newVerbLegend"></legend>
        <p class="inputLabel"> Verb name</p>
        <input
            type="text"
            id="newVerb"
            class="textInput spaceRight"
            onchange="newVerb_OnKeyUp" />
        <input
            type="button"
            id="saveNewVerbButton"
            value="OK "
            class="spaceRight" />
        <input
            type="button"
            id="cancelNewVerbButton"
            value="Cancel" /><br />
    </fieldset>

    <!-- Configure class subfields -->
    <fieldset id="classSubfields">
        <legend> Configure class</legend>
        <fieldset>
            <legend id="progIdLegend"></legend>
            <p class="inputLabel"> Class description</p>
            <input
                type="text"
                id="classDescription"
                class="textInput filespec" /><br />
            <p class="inputLabel"> Default icon file</p>
            <input
                type="text"
                id="iconFile"
                class="filespec" />
            <input
                type="button"
                id="browse4IconButton"
                value="..." />
        </fieldset>
        <fieldset>
            <legend id="shellNewLegend"></legend>
            <span class="inputLabel"> Template file
                <input
                    type="checkbox"
                    id="nullFileCheckbox"
                    class="spaceLeft" /> Create an empty file
            </span>
            <input
                type="text"
                id="templateFile"
                class="filespec" />
            <input
                type="button"
                id="browse4TemplateButton"
                value="..." />
        </fieldset>
        <input
            type="button"
            id="saveClassButton"
            value="OK "
            class="spaceTop" />
        <input
            type="button"
            id="cancelClassButton"
            value="Cancel"
            class="spaceTop spaceLeft" />
    </fieldset>

    <!-- Error message -->
    <div id="feedbackDiv" class="error spaceTop"></div>

    <style>
        body {
            font-family: sans-serif;
            font-size: smaller;
            background-color: ButtonFace;
            cursor: default;
        }
        .inputLabel {
            margin-top: 10px;
            margin-bottom: 2px;
        }
        .textInput {
            margin-top: 2px;
        }
        fieldset {
            padding: 10px;
            border-width: 3px;
        }
        .spaceTop {
            margin-top: 10px;
        }
        .spaceLeft {
            margin-left: 6px;
        }
        .spaceRight {
            margin-right: 6px;
        }
        .spaceBottom {
            margin-bottom: 6px;
        }
        .error {
            font-weight:bold;
            color: darkred;
        }
        .filespec {
            width: 94%;
        }
    </style>
</body>
</html>