Updated command line params and context menu by x-dragan-milosevic1993

Updated command line params and context menu

Author: r57zone

README.md

@@ -10,10 +10,17 @@ Application allows you to block internet access to other applications using the
 - **Blocking access in a single click**<br>
 ![](https://user-images.githubusercontent.com/9499881/169485181-faea855c-6ce7-49d0-8962-10fd798ea125.png)<br>
 
-Right-click on a program to block its internet access.
+Right-click on a program to block or unblock its internet access.
 - **Support Drag and Drop**
 
 Move programs to the "Firewall Easy" interface and access to the internet will be blocked for them.
+- **Command Line Arguments**
+ ```batch
+ FirewallEasy.exe /block "C:\Path\To\App.exe"
+ FirewallEasy.exe /unblock "C:\Path\To\App.exe"
+ ```
+
+Invoke the functions to block or unblock applications from accessing the internet via clis or scripts.
 
 ## Screenshot
 ![](https://github.com/r57zone/FirewallEasy/assets/9499881/f9770084-5913-42ad-9aff-764379bf0104)

Source/Languages/English.ini

@@ -16,10 +16,15 @@ ID_EXIT=Exit
 ID_RULE_SUCCESSFULLY_CREATED=Rule for application "%s" successfully created
 ID_RULE_ALREADY_EXISTS=Rule for app "%s" already exists
 ID_RULE_SUCCESSFULLY_REMOVED=Rule for application "%s" successfully removed
+ID_RULE_NOT_FOUND=Rule for app "%s" does not exist
 ID_CHOOSE_RULE=Choose rule
 ID_RULES_SUCCESSFULLY_CREATED=Rules successfully created:
 ID_FAILED_CREATE_RULES=Failed to create rules
+ID_RULES_SUCCESSFULLY_REMOVED=Rules successfully removed:
+ID_FAILED_REMOVE_RULES=Failed to remove rules
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=Removed rules for nonexistent applications:
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=Rules for nonexistent applications not found
 ID_LAST_UPDATE=Last update:
-ID_BLOCK_ACCESS=Block internet access 
+ID_CONTEXT_MENU=Firewall rules
+ID_BLOCK_ACCESS=Block internet access
+ID_UNBLOCK_ACCESS=Unblock internet access

Source/Languages/French.ini

@@ -16,10 +16,15 @@ ID_EXIT=Quitter
 ID_RULE_SUCCESSFULLY_CREATED=Règle pour l'application "%s" créée avec succès
 ID_RULE_ALREADY_EXISTS=Règle pour l'application "%s" existe déjà
 ID_RULE_SUCCESSFULLY_REMOVED=Règle pour l'application "%s" retirée avec succès
+ID_RULE_NOT_FOUND=
 ID_CHOOSE_RULE=Choisir une règle
 ID_RULES_SUCCESSFULLY_CREATED=Règles créées avec succès :
 ID_FAILED_CREATE_RULES=Échec de la création des règles
+ID_RULES_SUCCESSFULLY_REMOVED=
+ID_FAILED_REMOVE_RULES=
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=Règles retirées pour les applications inexistantes :
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=Règles pour les applications inexistantes introuvables
 ID_LAST_UPDATE=Dernière mise à jour:
-ID_BLOCK_ACCESS=Bloquer l'accès Internet 
+ID_CONTEXT_MENU=
+ID_BLOCK_ACCESS=Bloquer l'accès Internet
+ID_UNBLOCK_ACCESS=

Source/Languages/German.ini

@@ -16,10 +16,15 @@ ID_EXIT=Beenden
 ID_RULE_SUCCESSFULLY_CREATED=Regel für "%s" erfolgreich erstellt
 ID_RULE_ALREADY_EXISTS=Regel für "%s" existiert bereits
 ID_RULE_SUCCESSFULLY_REMOVED=Regel für "%s" erfolgreich entfernt
+ID_RULE_NOT_FOUND=
 ID_CHOOSE_RULE=Regel auswählen
 ID_RULES_SUCCESSFULLY_CREATED=Regeln erfolgreich erstellt:
 ID_FAILED_CREATE_RULES=Erstellen der Regeln fehlgeschlagen
+ID_RULES_SUCCESSFULLY_REMOVED=
+ID_FAILED_REMOVE_RULES=
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=Regeln für nicht-existierende Anwendungen entfernt:
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=Keine Regeln für nicht-existierende Anwendungen gefunden
 ID_LAST_UPDATE=Letztes Update:
+ID_CONTEXT_MENU=
 ID_BLOCK_ACCESS=Internetzugriff blockieren
+ID_UNBLOCK_ACCESS=

Source/Languages/Japanese.ini

@@ -16,10 +16,15 @@ ID_EXIT=
 ID_RULE_SUCCESSFULLY_CREATED=「%s」のルールを作成しました
 ID_RULE_ALREADY_EXISTS=「%s」のルールは既に存在します
 ID_RULE_SUCCESSFULLY_REMOVED=「%s」のルールを削除しました
+ID_RULE_NOT_FOUND=
 ID_CHOOSE_RULE=ルールを選択
 ID_RULES_SUCCESSFULLY_CREATED=ルールの作成に成功しました:
 ID_FAILED_CREATE_RULES=ルールの作成に失敗しました
+ID_RULES_SUCCESSFULLY_REMOVED=
+ID_FAILED_REMOVE_RULES=
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=存在しないアプリケーションのルールを削除:
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=アプリケーションのルールがありません
 ID_LAST_UPDATE=最終更新日:
-ID_BLOCK_ACCESS=インターネットの接続をブロック
+ID_CONTEXT_MENU=
+ID_BLOCK_ACCESS=インターネットの接続をブロック
+ID_UNBLOCK_ACCESS=

Source/Languages/Russian.ini

@@ -16,10 +16,15 @@ ID_EXIT=
 ID_RULE_SUCCESSFULLY_CREATED=Правило для приложения "%s" успешно создано
 ID_RULE_ALREADY_EXISTS=Правило для приложения "%s" уже существует
 ID_RULE_SUCCESSFULLY_REMOVED=Правило для приложения "%s" успешно удалено
+ID_RULE_NOT_FOUND=
 ID_CHOOSE_RULE=Выберите правило
 ID_RULES_SUCCESSFULLY_CREATED=Правил успешно создано:
 ID_FAILED_CREATE_RULES=Не удалось создать правила
+ID_RULES_SUCCESSFULLY_REMOVED=
+ID_FAILED_REMOVE_RULES=
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=Удалено правил для несуществующих приложений:
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=Правил для несуществующих приложений не найдено
 ID_LAST_UPDATE=Последнее обновление:
-ID_BLOCK_ACCESS=Заблокировать доступ в интернет
+ID_CONTEXT_MENU=
+ID_BLOCK_ACCESS=Заблокировать доступ в интернет
+ID_UNBLOCK_ACCESS=

Source/Languages/Spanish.ini

@@ -16,10 +16,15 @@ ID_EXIT=Salir
 ID_RULE_SUCCESSFULLY_CREATED=Regla para la aplicacion "%s" creada correctamente
 ID_RULE_ALREADY_EXISTS=Regla para la aplicacion "%s" ya existe
 ID_RULE_SUCCESSFULLY_REMOVED=Regla para la aplicacion "%s" removida correctamente
+ID_RULE_NOT_FOUND=
 ID_CHOOSE_RULE=Seleccione la regla
 ID_RULES_SUCCESSFULLY_CREATED=Reglas creadas satisfactoriamente:
 ID_FAILED_CREATE_RULES=Fallo al crear regla
+ID_RULES_SUCCESSFULLY_REMOVED=
+ID_FAILED_REMOVE_RULES=
 ID_REMOVED_RULES_FOR_NONEXISTENT_APPS=Reglas eliminadas para aplicaciones inexistentes:
 ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND=No se encuentran reglas para aplicaciones inexistentes
 ID_LAST_UPDATE=Ultima actualizacion:
-ID_BLOCK_ACCESS=Bloquear acceso a Internet 
+ID_CONTEXT_MENU=
+ID_BLOCK_ACCESS=Bloquear acceso a Internet
+ID_UNBLOCK_ACCESS=

Source/RemoveContextMenu.reg

@@ -57,6 +57,7 @@   TMain = class(TForm)
   private
     procedure LoadRegRules;
     procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
+    procedure HandleParams;
     { Private declarations }
   public
     { Public declarations }
@@ -67,14 +68,15 @@   TMain = class(TForm)
   RuleNames, RulePaths: TStringList;
   CloseDuplicate: boolean;
   BlockedCount: integer;
+  UnblockedCount: integer;
 
   // Ïåðåâîä / Tranlate
   ID_SEARCH: string;
 
   ID_ABOUT, ID_LAST_UPDATE: string;
 
-  ID_RULE_SUCCESSFULLY_CREATED, ID_RULE_ALREADY_EXISTS, ID_RULE_SUCCESSFULLY_REMOVED,
-  ID_CHOOSE_RULE, ID_RULES_SUCCESSFULLY_CREATED, ID_FAILED_CREATE_RULES,
+  ID_RULE_SUCCESSFULLY_CREATED, ID_RULE_ALREADY_EXISTS, ID_RULE_SUCCESSFULLY_REMOVED, ID_RULE_NOT_FOUND, ID_CHOOSE_RULE,
+  ID_RULES_SUCCESSFULLY_CREATED, ID_FAILED_CREATE_RULES, ID_RULES_SUCCESSFULLY_REMOVED, ID_FAILED_REMOVE_RULES,
   ID_REMOVED_RULES_FOR_NONEXISTENT_APPS, ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND: string;
 
 const
@@ -247,7 +249,7 @@ procedure TMain.LoadRegRules;
   Reg:=TRegistry.Create;
   SubKeyNames:=TStringList.Create;
   Reg.RootKey:=HKEY_LOCAL_MACHINE;
-  Reg.OpenKeyReadOnly('SYSTEM\ControlSet001\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules');
+  Reg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules');
   Reg.GetValueNames(Rules);
   for i:=0 to Rules.Count - 1 do begin
     RegName:=Reg.ReadString(Rules.Strings[i]);
@@ -278,6 +280,60 @@ procedure SendMessageToHandle(TrgWND: HWND; MsgToHandle: string);
   SendMessage(TrgWND, WM_COPYDATA, Integer(Application.Handle), Integer(@CDS));
 end;
 
+procedure TMain.HandleParams;
+var
+  i: Integer;
+  WND: HWND;
+  Msg: String;
+begin
+  // Ïîâòîðíûé çàïóñê, ïåðåäà÷à ParamStr
+  if ParamCount >= 2 then begin
+    if AnsiLowerCase(ExtractFileExt(ParamStr(2))) = '.exe' then begin
+
+      // Handles /block
+      if AnsiLowerCase(ParamStr(1)) = '/block' then begin
+        if Pos(AnsiLowerCase(ExpandFileName(ParamStr(2))), AnsiLowerCase(RulePaths.Text)) = 0 then begin
+          AddRulesForApp(ExpandFileName(ParamStr(2)));
+          StatusBar.SimpleText:=' ' + Format(ID_RULE_SUCCESSFULLY_CREATED, [CutStr(ExtractFileName(ParamStr(2)), 22)]);
+          Inc(BlockedCount);
+          Msg:='%ADDED%';
+
+        end else begin
+          StatusBar.SimpleText:=' ' + Format(ID_RULE_ALREADY_EXISTS, [CutStr(ExtractFileName(ParamStr(2)), 22)]);
+          Msg:='%EXISTS%';
+        end;
+
+      // Handles /unblock
+      end else if AnsiLowerCase(ParamStr(1)) = '/unblock' then begin
+        if Pos(AnsiLowerCase(ExpandFileName(ParamStr(2))), AnsiLowerCase(RulePaths.Text)) > 0 then begin
+          for i:=0 to RuleNames.Count - 1 do begin
+            if AnsiLowerCase(ExpandFileName(ParamStr(2))) = AnsiLowerCase(RulePaths.Strings[i]) then begin
+              RemoveAppRules(RuleNames.Strings[i]);
+              StatusBar.SimpleText:=' ' + Format(ID_RULE_SUCCESSFULLY_REMOVED, [CutStr(ExtractFileName(ParamStr(2)), 22)]);
+              Inc(UnblockedCount);
+              Msg:='%REMOVED%';
+
+              Break;
+            end;
+          end;
+
+        end else begin
+          StatusBar.SimpleText:=' ' + Format(ID_RULE_NOT_FOUND, [CutStr(ExtractFileName(ParamStr(2)), 22)]);
+          Msg:='%MISSING%';
+        end;
+      end;
+
+      if Msg <> '' then begin
+        WND:=FindWindow('TMain', 'Firewall Easy');
+        if WND <> 0 then begin
+          CloseDuplicate:=true;
+          SendMessageToHandle(WND, Msg);
+        end;
+      end;
+    end;
+  end;
+end;
+
 function GetLocaleInformation(flag: integer): string;
 var
   pcLCA: array [0..20] of Char;
@@ -289,7 +345,7 @@ function GetLocaleInformation(flag: integer): string;
 
 procedure TMain.FormCreate(Sender: TObject);
 var
-  WND: HWND; Ini: TIniFile; Reg: TRegistry;
+  Ini: TIniFile; Reg: TRegistry;
 begin
   // Ïåðåâîä / Translate
   if FileExists(ExtractFilePath(ParamStr(0)) + 'Languages\' + GetLocaleInformation(LOCALE_SENGLANGUAGE) + '.ini') then
@@ -320,9 +376,12 @@ procedure TMain.FormCreate(Sender: TObject);
   ID_RULE_SUCCESSFULLY_CREATED:=Ini.ReadString('Main', 'ID_RULE_SUCCESSFULLY_CREATED', '');
   ID_RULE_ALREADY_EXISTS:=Ini.ReadString('Main', 'ID_RULE_ALREADY_EXISTS', '');
   ID_RULE_SUCCESSFULLY_REMOVED:=Ini.ReadString('Main', 'ID_RULE_SUCCESSFULLY_REMOVED', '');
+  ID_RULE_NOT_FOUND:=Ini.ReadString('Main', 'ID_RULE_NOT_FOUND', '');
   ID_CHOOSE_RULE:=Ini.ReadString('Main', 'ID_CHOOSE_RULE', '');
   ID_RULES_SUCCESSFULLY_CREATED:=Ini.ReadString('Main', 'ID_RULES_SUCCESSFULLY_CREATED', '');
   ID_FAILED_CREATE_RULES:=Ini.ReadString('Main', 'ID_FAILED_CREATE_RULES', '');
+  ID_RULES_SUCCESSFULLY_REMOVED:=Ini.ReadString('Main', 'ID_RULES_SUCCESSFULLY_REMOVED', '');
+  ID_FAILED_REMOVE_RULES:=Ini.ReadString('Main', 'ID_FAILED_REMOVE_RULES', '');
   ID_REMOVED_RULES_FOR_NONEXISTENT_APPS:=Ini.ReadString('Main', 'ID_REMOVED_RULES_FOR_NONEXISTENT_APPS', '');
   ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND:=Ini.ReadString('Main', 'ID_RULES_FOR_NONEXISTENT_APPS_NOT_FOUND', '');
 
@@ -337,30 +396,25 @@ procedure TMain.FormCreate(Sender: TObject);
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CLASSES_ROOT;
   if (Reg.OpenKeyReadOnly('\exefile\shell\FirewallEasy') = false) and (Reg.OpenKey('\exefile\shell\FirewallEasy', true)) then begin
-    Reg.WriteString('', Ini.ReadString('Main', 'ID_BLOCK_ACCESS', ''));
+    Reg.WriteString('MUIVerb', Ini.ReadString('Main', 'ID_CONTEXT_MENU', ''));
     Reg.WriteString('Icon', ParamStr(0));
-    Reg.OpenKey('\exefile\shell\FirewallEasy\command', true);
-    Reg.WriteString('', ParamStr(0) + ' "%1"');
+    Reg.WriteString('SubCommands', '');
+    Reg.OpenKey('\exefile\shell\FirewallEasy\Shell\Block', true);
+    Reg.WriteString('MUIVerb', Ini.ReadString('Main', 'ID_BLOCK_ACCESS', ''));
+    Reg.WriteString('HasLUAShield', '');
+    Reg.OpenKey('\exefile\shell\FirewallEasy\Shell\Block\Command', true);
+    Reg.WriteString('', '"' + ParamStr(0) + '" /block "%1"');
+    Reg.OpenKey('\exefile\shell\FirewallEasy\Shell\Unblock', true);
+    Reg.WriteString('MUIVerb', Ini.ReadString('Main', 'ID_UNBLOCK_ACCESS', ''));
+    Reg.WriteString('HasLUAShield', '');
+    Reg.OpenKey('\exefile\shell\FirewallEasy\Shell\Unblock\Command', true);
+    Reg.WriteString('', '"' + ParamStr(0) + '" /unblock "%1"');
   end;
   Reg.CloseKey;
   Reg.Free;
   Ini.Free;
 
-  // Ïîâòîðíûé çàïóñê, ïåðåäà÷à ParamStr(1)
-  if ParamCount > 0 then
-    if AnsiLowerCase(ExtractFileExt(ParamStr(1))) = '.exe' then begin
-      if Pos(ParamStr(1), RulePaths.Text) = 0 then begin
-        AddRulesForApp(ParamStr(1));
-        StatusBar.SimpleText:=' ' + Format(ID_RULE_SUCCESSFULLY_CREATED, [CutStr(ExtractFileName(ParamStr(1)), 22)]);
-        Inc(BlockedCount);
-        WND:=FindWindow('TMain', 'Firewall Easy');
-        if WND <> 0 then begin
-          CloseDuplicate:=true;
-          SendMessageToHandle(WND, '%ADDED%');
-        end;
-
-      end else StatusBar.SimpleText:=' ' + Format(ID_RULE_ALREADY_EXISTS, [CutStr(ExtractFileName(ParamStr(1)), 22)]);
-    end;
+  HandleParams;
 
   if CloseDuplicate = false then
     Caption:='Firewall Easy';
@@ -406,12 +460,24 @@ procedure TMain.ListViewKeyUp(Sender: TObject; var Key: Word;
 end;
 
 procedure TMain.WMCopyData(var Msg: TWMCopyData);
+var
+  Input: string;
 begin
-  if PChar(TWMCopyData(Msg).CopyDataStruct.lpData) = '%ADDED%' then begin
+  Input:=PChar(TWMCopyData(Msg).CopyDataStruct.lpData);
+
+  if Input = '%ADDED%' then begin
     Inc(BlockedCount);
     LoadRegRules;
     StatusBar.SimpleText:=' ' + ID_RULES_SUCCESSFULLY_CREATED + ' ' + IntToStr(BlockedCount);
-  end;
+  end else if Input = '%REMOVED%' then begin
+    Inc(UnblockedCount);
+    LoadRegRules;
+    StatusBar.SimpleText:=' ' + ID_RULES_SUCCESSFULLY_REMOVED + ' ' + IntToStr(UnblockedCount);
+  end else if Input = '%EXISTS%' then
+    StatusBar.SimpleText:=' ' + ID_FAILED_CREATE_RULES
+  else if Input = '%MISSING%' then
+    StatusBar.SimpleText:=' ' + ID_FAILED_REMOVE_RULES;
+
   Msg.Result:=Integer(True);
 end;
 
@@ -527,8 +593,8 @@ procedure TMain.ExportBtnClick(Sender: TObject);
 
 procedure TMain.AboutBtnClick(Sender: TObject);
 begin
-  Application.MessageBox(PChar(Caption + ' 0.7.1' + #13#10 +
-  ID_LAST_UPDATE + ' 31.03.2024' + #13#10 +
+  Application.MessageBox(PChar(Caption + ' 0.8' + #13#10 +
+  ID_LAST_UPDATE + ' 25.05.2025' + #13#10 +
   'https://r57zone.github.io' + #13#10 +
   '[email protected]'), PChar(ID_ABOUT), MB_ICONINFORMATION);
 end;