first point release. 1.7.1. for a useful new feature.

bongochong · May 23, 2019 · ea0570d · ea0570d
1 parent 3ca9f9a
commit ea0570d
Show file tree

Hide file tree

Showing 10 changed files with 116 additions and 57 deletions.
diff --git a/Releases/CWP-Utilities-Stable-1.7.exe → .../OldReleases/CWP-Utilities-Stable-1.7.exe b/Releases/CWP-Utilities-Stable-1.7.exe → .../OldReleases/CWP-Utilities-Stable-1.7.exe
diff --git a/Changelog.md b/Changelog.md
@@ -1,8 +1,12 @@
 **Changelog**:
 
-05/22/2019 - Small improvements to the big changes. Namely, the system tray program now directly can open the configuration files for editing (rather than going through the main script), and it displays the version number of CWP Utilities when clicking "About This Program" in the help sub-menu. This adds a nice amount of polish. Replaced an icon to make sure everything is visually cohesive. Added a start menu shortcut which brings the user directly to the location of the main scripts too. That's it. So, we're now at version 1.7 Stable.
+05/22/2019 - Minor point release for an added feature on the systray program, which lets one edit their current Windows hosts file. Also made the menus in the systray program easier to understand. Now at version 1.7.1 Stable.
+
+The new release can be downloaded from here: [CWP-Utilities-Stable-1.7.1.exe](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.1.exe). **Please delete the CWP Utilities shortcut folder and let the installer install its shortcuts again**, as there's been a useful addition and slight modification to the shortcuts. Aside from that, just install this version over the old one and you're good to go.
 
-The new release can be downloaded from here: [CWP-Utilities-Stable-1.7.exe](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.exe). **Please delete the CWP Utilities shortcut folder and let the installer install its shortcuts again**, as there's been a useful addition and slight modification to the shortcuts. Aside from that, just install this version over the old one and you're good to go. No releases for a decent while after this, unless there's an emergency.
+---
+
+05/22/2019 - Small improvements to the big changes. Namely, the system tray program now directly can open the configuration files for editing (rather than going through the main script), and it displays the version number of CWP Utilities when clicking "About This Program" in the help sub-menu. This adds a nice amount of polish. Replaced an icon to make sure everything is visually cohesive. Added a start menu shortcut which brings the user directly to the location of the main scripts too. That's it. So, we're now at version 1.7 Stable.
 
 ---
 

diff --git a/README.md b/README.md
@@ -1,8 +1,8 @@
-# [Combined Windows Privacy Utilities](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.exe) 
+# [Combined Windows Privacy Utilities](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.1.exe) 
 Are you tired of ads and trackers affecting your web browsing? Do you want to use file sharing applications in a safer way, with less risk of being snooped on? Do you want to take preemptive measures against spyware? Or, would you simply like to have an easier way of keeping your hosts file and torrent client block lists thorough and up-to-date on Windows? Look no further.  
 <p align="center"><img src="https://github.com/bongochong/CWP-Utilities/raw/master/Screenshots/systray-active.png" alt="Active SysTray"></p>
 
-Combined Windows Privacy Utilities (or CWP Utilities) is a suite of free and open source tools for Windows users, to help them guard their privacy and security. It does this through drastically simplifying the work of retrieving, parsing, and structuring data from a number of different trustworthy block lists, then combining them into single, usable files, and putting them in their proper places. [A simple installer is provided (just click this link to download it)](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.exe), and strongly encouraged to be used. The program can be installed anywhere on any device that runs Windows, along with USB drives, as all of the utilities dynamically recognize proper system paths. It creates no registry entries, cleans up after itself, and if one chooses to uninstall it, no files are left behind.
+Combined Windows Privacy Utilities (or CWP Utilities) is a suite of free and open source tools for Windows users, to help them guard their privacy and security. It does this through drastically simplifying the work of retrieving, parsing, and structuring data from a number of different trustworthy block lists, then combining them into single, usable files, and putting them in their proper places. [A simple installer is provided (just click this link to download it)](https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.1.exe), and strongly encouraged to be used. The program can be installed anywhere on any device that runs Windows, along with USB drives, as all of the utilities dynamically recognize proper system paths. It creates no registry entries, cleans up after itself, and if one chooses to uninstall it, no files are left behind.
 
 CWP Utilities automates the process of maintaining an up-to-date and comprehensive hosts file, in order to block a variety of trackers, advertisements, and malware, on a system-wide level. It also enables the average user to easily keep the block lists for their file sharing applications up-to-date and thorough, along with facilitating the easy utilization of a Proxy Auto-Configuration (or PAC) file, for ad and tracker-blocking on devices that are less configurable (e.g. non-rooted phones).
 ![Main Interface](/Screenshots/screen05-new.png)

diff --git a/Releases/CWP-Utilities-Stable-1.7.1.exe b/Releases/CWP-Utilities-Stable-1.7.1.exe
diff --git a/Releases/README.txt b/Releases/README.txt
@@ -1,5 +1,5 @@
 This directory will always contain the most recent installer:
-https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.exe
+https://github.com/bongochong/CWP-Utilities/raw/master/Releases/CWP-Utilities-Stable-1.7.1.exe
 
 If you need to download an old one for some crazy reason, you may check here:
 https://github.com/bongochong/CWP-Utilities/tree/master/Backups/OldReleases
diff --git a/Screenshots/systray-active.png b/Screenshots/systray-active.png
diff --git a/Source/CWPU-Tray-Tool/CWPUTray3.lpi b/Source/CWPU-Tray-Tool/CWPUTray3.lpi
@@ -23,9 +23,10 @@
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="7"/>
+      <RevisionNr Value="1"/>
       <CharSet Value="04B0"/>
       <Attributes pvaSpecialBuild="True"/>
-      <StringTable CompanyName="Bongo Chong Inc." FileDescription="CWPU Tray Launcher" InternalName="CWPUTL" LegalCopyright="Bongo Chong (C)" LegalTrademarks="CWP Utilities (TM)" ProductName="CWPU Tray Launcher" ProductVersion="1.7"/>
+      <StringTable CompanyName="Bongo Chong Inc." FileDescription="CWPU Tray Launcher" InternalName="CWPUTL" LegalCopyright="Bongo Chong (C)" LegalTrademarks="CWP Utilities (TM)" ProductName="CWPU Tray Launcher" ProductVersion="1.7.1"/>
     </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
@@ -47,7 +48,6 @@
       <Unit0>
         <Filename Value="CWPUTray3.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="CWPU"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -70,6 +70,7 @@
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <CodeGeneration>
+      <SmartLinkUnit Value="True"/>
       <TargetCPU Value="i386"/>
       <TargetOS Value="win32"/>
       <Optimizations>
@@ -80,7 +81,9 @@
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="False"/>
+        <StripSymbols Value="True"/>
       </Debugging>
+      <LinkSmart Value="True"/>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>

diff --git a/Source/CWPU-Tray-Tool/CWPUTray3.lps b/Source/CWPU-Tray-Tool/CWPUTray3.lps
@@ -10,7 +10,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
         <CursorPos X="18"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="27"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -21,9 +21,10 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="55"/>
-        <CursorPos X="60" Y="124"/>
-        <UsageCount Value="26"/>
+        <TopLine Value="117"/>
+        <CursorPos X="51" Y="127"/>
+        <ComponentState Value="1"/>
+        <UsageCount Value="27"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>

diff --git a/Source/CWPU-Tray-Tool/unit1.lfm b/Source/CWPU-Tray-Tool/unit1.lfm
@@ -3798,7 +3798,7 @@ object Form1: TForm1
       Caption = '-'
     end
     object MenuItem2: TMenuItem
-      Caption = 'Hosts (Standard)'
+      Caption = 'Update Hosts (Standard)'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000064000000640000000000000000000000000000000000
@@ -3838,7 +3838,7 @@ object Form1: TForm1
       OnClick = MenuItem2Click
     end
     object MenuItem3: TMenuItem
-      Caption = 'Hosts (w/IPv6)'
+      Caption = 'Update Hosts (w/IPv6)'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000064000000640000000000000000000000000000001411
@@ -3877,48 +3877,8 @@ object Form1: TForm1
       }
       OnClick = MenuItem3Click
     end
-    object MenuItem20: TMenuItem
-      Caption = 'Restore Hosts'
-      Bitmap.Data = {
-        36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000064000000640000000000000000000000000000000000
-        000000000000051927010C4163330D486D4409314A1200000000000000000000
-        000000000000000000000000000000000000000000000000000008293E081A8A
-        D2A7135E8D3D1B92DED61A96E5FF1A96E5FC1B8FD8A22881B72D000000000000
-        0000111111014E4E4E34616161493333331600000000000000000C3B5A241E9A
-        E9FF1E9AE8FE1E9BEAFF1E9AE9DC136396380000000000000000000000000000
-        0000C7C7C7B3F4F4F4FFF6F6F6FFEDEDEDF67575754400000000114F7641229F
-        EEFF229FEEFF229EEDE2104C72160000000000000000000000007B7B7B41B1B1
-        B185E3E3E3FDE7E7E7FFE8E8E8FFE4E4E4FFD4D4D4C4A2A2A272165C894426A3
-        F2F826A3F2FF26A2F0F91963923F000000000000000000000000BBBBBB936F6F
-        6FFF505050FF505050FF505050FF505050FF515151FFCECECEEF000000000000
-        00000D37520E104465230F3F5D1B000000000000000000000000BEBEBE934949
-        49FF2D2D2DFF2D2D2DFF2D2D2DFF2D2D2DFF2D2D2DFFC1C1C1EF8989894F9F9F
-        9F859F9F9F859F9F9F859F9F9F85909090560000000000000000C1C1C1934E4E
-        4EFF323232FF323232FF323232FF323232FF323232FFC5C5C5EFE2E2E2EBE4E4
-        E4FFE4E4E4FFE4E4E4FFE4E4E4FFE2E2E2F90000000000000000C4C4C4935353
-        53FF383838FF383838FF383838FF383838FF383838FFC9C9C9EFE7E4DFEFDDB4
-        61FFDDB461FFDDB461FFDDB461FFE6E2D9FD0000000000000000C6C6C693A2A2
-        A2FF8A8A8AFF8A8A8AFF8A8A8AFF8A8A8AFF8B8B8BFFE5E5E5EEEBEBEBEFEAE7
-        E0FFEAE7E0FFEAE7E0FFEAE7E0FFEBEBEAFD0000000000000000646464208B8B
-        8B498B8B8B498B8B8B498B8B8B498B8B8B498B8B8B498989893AEDEBE7EFE4C0
-        76FFE4C076FFE4C076FFE4C076FFEDE9E1FD0000000000000000000000000418
-        26090938552A072D461605223503000000000000000000000000F1F1F1EFEFE8
-        D8FFEFE8D8FFEFE8D8FFEFE8D8FFF1F1F0FD0000000000000000000000000525
-        3A0A148FDDCE158FDDFF158EDCFD158AD49F0000000000000000F4F2EEEFECCC
-        8CFFECCC8CFFECCC8CFFECCC8CFFF4F1EAFD0000000000000000000000000000
-        00001785CB991894E3FF1894E3FF1689D1A00000000000000000F8F7F6EFF5E9
-        D0FFF5E9D0FFF5E9D0FFF5E9D0FFF8F7F5FC00000000000000000C344D101F8C
-        D1A5209CEBFF209DECFF209DECFE1A7EBE830000000000000000EFEFEF96FBFB
-        FBD5FBFBFBD5FBFBFBD5FBFBFBD5F5F5F5A139779D0E248DCE7128A2EFE928A5
-        F4FF28A5F4F4228FD47A1E7FBD541B72A95F0000000000000000000000000000
-        000000000000000000000000000000000000000000000A283B0317578037185C
-        8842103E5B0E0000000000000000000000000000000000000000
-      }
-      OnClick = MenuItem20Click
-    end
     object MenuItem4: TMenuItem
-      Caption = 'PAC File'
+      Caption = 'Update PAC File'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000064000000640000000000000000000000000000000000
@@ -3958,7 +3918,7 @@ object Form1: TForm1
       OnClick = MenuItem4Click
     end
     object MenuItem5: TMenuItem
-      Caption = 'DAT Block List'
+      Caption = 'Update DAT Block List'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000064000000640000000000000000000000C0C0C0FFC0C0
@@ -3998,7 +3958,7 @@ object Form1: TForm1
       OnClick = MenuItem5Click
     end
     object MenuItem6: TMenuItem
-      Caption = 'P2P Block List'
+      Caption = 'Update P2P Block List'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000064000000640000000000000000000000D5D5D5FFD5D5
@@ -4040,6 +4000,89 @@ object Form1: TForm1
     object MenuItem18: TMenuItem
       Caption = '-'
     end
+    object MenuItem20: TMenuItem
+      Caption = 'Restore Default Hosts'
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        000000000000051927010C4163330D486D4409314A1200000000000000000000
+        000000000000000000000000000000000000000000000000000008293E081A8A
+        D2A7135E8D3D1B92DED61A96E5FF1A96E5FC1B8FD8A22881B72D000000000000
+        0000111111014E4E4E34616161493333331600000000000000000C3B5A241E9A
+        E9FF1E9AE8FE1E9BEAFF1E9AE9DC136396380000000000000000000000000000
+        0000C7C7C7B3F4F4F4FFF6F6F6FFEDEDEDF67575754400000000114F7641229F
+        EEFF229FEEFF229EEDE2104C72160000000000000000000000007B7B7B41B1B1
+        B185E3E3E3FDE7E7E7FFE8E8E8FFE4E4E4FFD4D4D4C4A2A2A272165C894426A3
+        F2F826A3F2FF26A2F0F91963923F000000000000000000000000BBBBBB936F6F
+        6FFF505050FF505050FF505050FF505050FF515151FFCECECEEF000000000000
+        00000D37520E104465230F3F5D1B000000000000000000000000BEBEBE934949
+        49FF2D2D2DFF2D2D2DFF2D2D2DFF2D2D2DFF2D2D2DFFC1C1C1EF8989894F9F9F
+        9F859F9F9F859F9F9F859F9F9F85909090560000000000000000C1C1C1934E4E
+        4EFF323232FF323232FF323232FF323232FF323232FFC5C5C5EFE2E2E2EBE4E4
+        E4FFE4E4E4FFE4E4E4FFE4E4E4FFE2E2E2F90000000000000000C4C4C4935353
+        53FF383838FF383838FF383838FF383838FF383838FFC9C9C9EFE7E4DFEFDDB4
+        61FFDDB461FFDDB461FFDDB461FFE6E2D9FD0000000000000000C6C6C693A2A2
+        A2FF8A8A8AFF8A8A8AFF8A8A8AFF8A8A8AFF8B8B8BFFE5E5E5EEEBEBEBEFEAE7
+        E0FFEAE7E0FFEAE7E0FFEAE7E0FFEBEBEAFD0000000000000000646464208B8B
+        8B498B8B8B498B8B8B498B8B8B498B8B8B498B8B8B498989893AEDEBE7EFE4C0
+        76FFE4C076FFE4C076FFE4C076FFEDE9E1FD0000000000000000000000000418
+        26090938552A072D461605223503000000000000000000000000F1F1F1EFEFE8
+        D8FFEFE8D8FFEFE8D8FFEFE8D8FFF1F1F0FD0000000000000000000000000525
+        3A0A148FDDCE158FDDFF158EDCFD158AD49F0000000000000000F4F2EEEFECCC
+        8CFFECCC8CFFECCC8CFFECCC8CFFF4F1EAFD0000000000000000000000000000
+        00001785CB991894E3FF1894E3FF1689D1A00000000000000000F8F7F6EFF5E9
+        D0FFF5E9D0FFF5E9D0FFF5E9D0FFF8F7F5FC00000000000000000C344D101F8C
+        D1A5209CEBFF209DECFF209DECFE1A7EBE830000000000000000EFEFEF96FBFB
+        FBD5FBFBFBD5FBFBFBD5FBFBFBD5F5F5F5A139779D0E248DCE7128A2EFE928A5
+        F4FF28A5F4F4228FD47A1E7FBD541B72A95F0000000000000000000000000000
+        000000000000000000000000000000000000000000000A283B0317578037185C
+        8842103E5B0E0000000000000000000000000000000000000000
+      }
+      OnClick = MenuItem20Click
+    end
+    object MenuItem24: TMenuItem
+      Caption = 'Edit Current Hosts'
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000CCCCCCB6D0D0
+        D0D3D0D0D0D3D0D0D0D3D0D0D0D3D0D0D0D3D0D0D0D3D0D0D0D3D0D0D0D3D0D0
+        D0D3D0D0D0D3D0D0D0D3CACACA6D000000000000000000000000E1E1E1F7E2E2
+        E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2
+        E2FFE2E2E2FFE2E2E2FFE0E0E09F000000000000000000000000E2E2E2F7E2E2
+        E2FFBCBCBCFFB7B7B7FFB7B7B7FFB7B7B7FFB7B7B7FFB7B7B7FFDBDBDBFFC6C6
+        C6FFC8C8C8FFE2E2E2FFE2E2E29F000000000000000000000000E2E2E2F7E2E2
+        E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFBABA
+        BAFF7F7F7FFFE8E8E8FFDADEE09F000000000000000000000000E2E2E2F7E2E2
+        E2FFBCBCBCFFB7B7B7FFB7B7B7FFB7B7B7FFB7B7B7FFB7B7B7FFB7B7B7FFBEBE
+        BEFFFAFAFAFFC2E0F3FF41A9ECDD1673AE0D0000000000000000E3E3E3F7E3E3
+        E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE4E4
+        E4FF8BC9F1FF25A0EEFF219DECFF1B97E69D0000000000000000E5E5E5F7E5E5
+        E5FFD8D8D8FFD6D6D6FFD6D6D6FFD6D6D6FFD6D6D6FFD6D6D6FFD6D6D6FFD6D6
+        D6FF8BBFE1FF1E9AE9FF1D99E8FF1D99E8FE168EDB5000000000E6E6E6F7E6E6
+        E6FFCBCBCBFFC8C8C8FFC8C8C8FFC8C8C8FFC8C8C8FFC8C8C8FFC8C8C8FFC8C8
+        C8FFD2D3D3FF5AB4EDFF1C99E8FF1995E4FF1994E3EA629AC01AE8E8E8F7E8E8
+        E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8
+        E8FFE8E8E8FFD4E1E9FF31A5EEFF2C9CE3FF9ABEE7FF7878E6B5E9E9E9F7E9E9
+        E9FFC0C0C0FFBABABAFFBABABAFFBABABAFFBABABAFFBABABAFFBABABAFFBABA
+        BAFFCCCCCCFFE9E9E9FFBBD9EDEA9EA8E7FF4F4FE3FF4949E6C2EBEBEBF7EBEB
+        EBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEB
+        EBFFEBEBEBFFEBEBEBFFE1E1EA9F4E4EE4914A4AE77831319902EDEDEDF7EDED
+        EDFFC6C6C6FFC1C1C1FFC1C1C1FFC1C1C1FFC1C1C1FFC1C1C1FFE5E5E5FFEDED
+        EDFFEDEDEDFFEDEDEDFFECECEC9F000000000000000000000000EEEEEEF7EEEE
+        EEFFEAEAEAFFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFEEEEEEFFEAE9
+        E7FFD9CFBBFFD8CFBEFFDCD5C798000000000000000000000000F0F0F0F7F0F0
+        F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFE2D1
+        B0FFCB9E42FFC4973BD0A07E3914000000000000000000000000F1F1F1F7F1F1
+        F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFE5D3
+        AFFFCC9F43D0AA83341400000000000000000000000000000000F2F2F29FF2F2
+        F2BBF2F2F2BBF2F2F2BBF2F2F2BBF2F2F2BBF2F2F2BBF2F2F2BBF2F2F2BBE6D6
+        B5ADB18B3D140000000000000000000000000000000000000000
+      }
+      OnClick = MenuItem24Click
+    end
+    object MenuItem25: TMenuItem
+      Caption = '-'
+    end
     object MenuItem7: TMenuItem
       Caption = 'Edit Configs'
       Bitmap.Data = {

diff --git a/Source/CWPU-Tray-Tool/unit1.pas b/Source/CWPU-Tray-Tool/unit1.pas
@@ -27,6 +27,8 @@   TForm1 = class(TForm)
     MenuItem21: TMenuItem;
     MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
@@ -47,6 +49,7 @@   TForm1 = class(TForm)
     procedure MenuItem21Click(Sender: TObject);
     procedure MenuItem22Click(Sender: TObject);
     procedure MenuItem23Click(Sender: TObject);
+    procedure MenuItem24Click(Sender: TObject);
     procedure MenuItem2Click(Sender: TObject);
     procedure MenuItem3Click(Sender: TObject);
     procedure MenuItem4Click(Sender: TObject);
@@ -121,7 +124,12 @@ procedure TForm1.MenuItem22Click(Sender: TObject);
 
 procedure TForm1.MenuItem23Click(Sender: TObject);
 begin
-  ShowMessage('Version 1.7 of CWP Utilities' + sLineBreak + 'Thanks for using my software!' + sLineBreak + 'Be sure to check out my other projects at:' + sLineBreak + 'https://github.com/bongochong');
+  ShowMessage('Version 1.7.1 of CWP Utilities' + sLineBreak + 'Thanks for using my software!' + sLineBreak + 'Be sure to check out my other projects at:' + sLineBreak + 'https://github.com/bongochong');
+end;
+
+procedure TForm1.MenuItem24Click(Sender: TObject);
+begin
+ if ShellExecute(0,nil, PChar('cmd'),PChar('/c "start /min SysHostsEd.bat"'),nil,1) =0 then;
 end;
 
 procedure TForm1.MenuItem2Click(Sender: TObject);