Merge pull request #5 from martinstoeckli/feature/hash-calculator

Implemented hash calculator for selected files.

Author: martinstoeckli

design/ExplorerGenie.svg

@@ -5,3 +5,4 @@ icoOptions ICON "img\options.ico"
 icoCmd ICON "img\cmd.ico"
 icoPowershell ICON "img\powershell.ico"
 icoExplorer ICON "img\explorer.ico"
+icoHash ICON "img\hash.ico"

design/hash32.png

@@ -56,6 +56,7 @@   TActions = class(TObject)
 
     class function FindExplorerGenieCmdPath: String;
     class function FindExplorerGenieOptionsPath: String;
+    class function ContainsFiles(filenames: TStrings): Boolean;
   public
     /// <summary>
     /// Action for menu item "copy file"
@@ -72,7 +73,8 @@   TActions = class(TObject)
     /// <summary>
     /// Action for menu item "copy options"
     /// </summary>
-    class procedure OnCopyOptionsClicked();
+    /// <param name="filenames">List with paths of selected files.</param>
+    class procedure OnCopyOptionsClicked(filenames: TStrings);
 
     /// <summary>
     /// Action for menu item "open cmd"
@@ -95,7 +97,14 @@   TActions = class(TObject)
     /// <summary>
     /// Action for menu item "Go to options"
     /// </summary>
-    class procedure OnGotoOptionsClicked();
+    /// <param name="filenames">List with paths of selected files.</param>
+    class procedure OnGotoOptionsClicked(filenames: TStrings);
+
+    /// <summary>
+    /// Action for menu item "Hash"
+    /// </summary>
+    /// <param name="filenames">List with paths of selected files.</param>
+    class procedure OnHashClicked(filenames: TStrings);
   end;
 
 implementation
@@ -120,13 +129,13 @@ class procedure TActions.OnCopyEmailClicked(filenames: TStrings);
   ExecuteCommand(exePath, params, false);
 end;
 
-class procedure TActions.OnCopyOptionsClicked();
+class procedure TActions.OnCopyOptionsClicked(filenames: TStrings);
 var
   exePath: String;
   params: String;
 begin
   exePath := FindExplorerGenieOptionsPath();
-  params := BuildCommandLine('-OpenedFromCopy', nil);
+  params := BuildCommandLine('-OpenedFromCopy', filenames);
   ExecuteCommand(exePath, params, true);
 end;
 
@@ -178,13 +187,23 @@ class procedure TActions.OnGotoExplorerClicked(filenames: TStrings; asAdmin: Boo
   end;
 end;
 
-class procedure TActions.OnGotoOptionsClicked;
+class procedure TActions.OnGotoOptionsClicked(filenames: TStrings);
 var
   exePath: String;
   params: String;
 begin
   exePath := FindExplorerGenieOptionsPath();
-  params := BuildCommandLine('-OpenedFromGoto', nil);
+  params := BuildCommandLine('-OpenedFromGoto', filenames);
+  ExecuteCommand(exePath, params, true);
+end;
+
+class procedure TActions.OnHashClicked(filenames: TStrings);
+var
+  exePath: String;
+  params: String;
+begin
+  exePath := FindExplorerGenieOptionsPath();
+  params := BuildCommandLine('-OpenedFromHash', filenames);
   ExecuteCommand(exePath, params, true);
 end;
 
@@ -272,6 +291,19 @@ class function TActions.GetShellExecuteOperation(asAdmin: Boolean): String;
     Result := 'open';
 end;
 
+class function TActions.ContainsFiles(filenames: TStrings): Boolean;
+var
+  index: Integer;
+begin
+  Result := false;
+  index := 0;
+  while (not Result) and (index < filenames.Count) do
+  begin
+    Result := TFile.Exists(filenames[index]);
+    Inc(index);
+  end;
+end;
+
 class procedure TActions.ExecuteCommand(const cmd, params: String; visible: Boolean);
 var
   applicationName: WideString;

src/ExplorerGenieExt/Images.rc

@@ -112,6 +112,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
   submenuGotoExplorer: TMenuModel;
   submenuGotoExplorerAdmin: TMenuModel;
   submenuGotoOptions: TMenuModel;
+  menuHash: TMenuModel;
 begin
   Result := TMenuModelList.Create(true);
   settings := TSettingsModel.Create();
@@ -153,7 +154,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
     submenuCopyOptions.OnClicked :=
       procedure
       begin
-        TActions.OnCopyOptionsClicked();
+        TActions.OnCopyOptionsClicked(FFilenames);
       end;
     menuClipboard.Children.Add(submenuCopyOptions);
   end;
@@ -168,7 +169,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
     if (settings.GotoCommandPrompt) then
     begin
       submenuGotoCmd := TMenuModel.Create;
-      submenuGotoCmd.Title := languageService.LoadText('menuGotoCmd', 'Open in Command Prompt');
+      submenuGotoCmd.Title := languageService.LoadText('submenuGotoCmd', 'Open in Command Prompt');
       submenuGotoCmd.Icon := TMenuIcon.Create('icoCmd', iconSize);
       submenuGotoCmd.OnClicked :=
         procedure
@@ -178,7 +179,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
       menuGoto.Children.Add(submenuGotoCmd);
 
       submenuGotoCmdAdmin := TMenuModel.Create;
-      submenuGotoCmdAdmin.Title := languageService.LoadText('menuGotoCmdAdmin', 'Open in Command Prompt as admin');
+      submenuGotoCmdAdmin.Title := languageService.LoadText('submenuGotoCmdAdmin', 'Open in Command Prompt as admin');
       submenuGotoCmdAdmin.Icon := TMenuIcon.Create('icoCmd', iconSize);
       submenuGotoCmdAdmin.OnClicked :=
         procedure
@@ -191,7 +192,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
     if (settings.GotoPowerShell) then
     begin
       submenuGotoPowershell := TMenuModel.Create;
-      submenuGotoPowershell.Title := languageService.LoadText('menuGotoPowershell', 'Open in Power Shell');
+      submenuGotoPowershell.Title := languageService.LoadText('submenuGotoPowershell', 'Open in Power Shell');
       submenuGotoPowershell.Icon := TMenuIcon.Create('icoPowershell', iconSize);
       submenuGotoPowershell.OnClicked :=
         procedure
@@ -201,7 +202,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
       menuGoto.Children.Add(submenuGotoPowershell);
 
       submenuGotoPowershellAdmin := TMenuModel.Create;
-      submenuGotoPowershellAdmin.Title := languageService.LoadText('menuGotoPowershellAdmin', 'Open in Power Shell as admin');
+      submenuGotoPowershellAdmin.Title := languageService.LoadText('submenuGotoPowershellAdmin', 'Open in Power Shell as admin');
       submenuGotoPowershellAdmin.Icon := TMenuIcon.Create('icoPowershell', iconSize);
       submenuGotoPowershellAdmin.OnClicked :=
         procedure
@@ -214,7 +215,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
     if (settings.GotoExplorer) then
     begin
       submenuGotoExplorer := TMenuModel.Create;
-      submenuGotoExplorer.Title := languageService.LoadText('menuGotoExplorer', 'Open in Explorer');
+      submenuGotoExplorer.Title := languageService.LoadText('submenuGotoExplorer', 'Open in Explorer');
       submenuGotoExplorer.Icon := TMenuIcon.Create('icoExplorer', iconSize);
       submenuGotoExplorer.OnClicked :=
         procedure
@@ -224,7 +225,7 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
       menuGoto.Children.Add(submenuGotoExplorer);
 
       submenuGotoExplorerAdmin := TMenuModel.Create;
-      submenuGotoExplorerAdmin.Title := languageService.LoadText('menuGotoExplorerAdmin', 'Open in Explorer as admin');
+      submenuGotoExplorerAdmin.Title := languageService.LoadText('submenuGotoExplorerAdmin', 'Open in Explorer as admin');
       submenuGotoExplorerAdmin.Icon := TMenuIcon.Create('icoExplorer', iconSize);
       submenuGotoExplorerAdmin.OnClicked :=
         procedure
@@ -240,10 +241,23 @@ function TApp.CreateMenuModels(settingsService: TSettingsService; languageServic
     submenuGotoOptions.OnClicked :=
       procedure
       begin
-        TActions.OnGotoOptionsClicked();
+        TActions.OnGotoOptionsClicked(FFilenames);
       end;
     menuGoto.Children.Add(submenuGotoOptions);
   end;
+
+  if (settings.HashShowMenu) then
+  begin
+    menuHash := TMenuModel.Create;
+    menuHash.Title := languageService.LoadText('menuHash', 'Calculate hash');
+    menuHash.Icon := TMenuIcon.Create('icoHash', iconSize);
+    menuHash.OnClicked :=
+      procedure
+      begin
+        TActions.OnHashClicked(FFilenames);
+      end;
+    Result.Add(menuHash);
+  end;
   finally
     settings.Free();
   end;

src/ExplorerGenieExt/UnitActions.pas

@@ -17,6 +17,7 @@   TSettingsModel = class(TObject)
     FGotoCommandPrompt: Boolean;
     FGotoPowerShell: Boolean;
     FGotoExplorer: Boolean;
+    FHashShowMenu: Boolean;
   public
     constructor Create();
     procedure SetToDefault();
@@ -25,6 +26,7 @@   TSettingsModel = class(TObject)
     property GotoCommandPrompt: Boolean read FGotoCommandPrompt write FGotoCommandPrompt;
     property GotoPowerShell: Boolean read FGotoPowerShell write FGotoPowerShell;
     property GotoExplorer: Boolean read FGotoExplorer write FGotoExplorer;
+    property HashShowMenu: Boolean read FHashShowMenu write FHashShowMenu;
   end;
 
 implementation
@@ -41,6 +43,7 @@ procedure TSettingsModel.SetToDefault;
   GotoCommandPrompt := true;
   GotoPowerShell := true;
   GotoExplorer := true;
+  HashShowMenu := true;
 end;
 
 end.

src/ExplorerGenieExt/UnitApp.pas

@@ -55,6 +55,8 @@ procedure TSettingsService.LoadSettingsOrDefault(settings: TSettingsModel);
         settings.GotoPowerShell := StrToBoolDef(registry.ReadString('GotoPowerShell'), settings.GotoPowerShell);
       if (registry.ValueExists('GotoExplorer')) then
         settings.GotoExplorer := StrToBoolDef(registry.ReadString('GotoExplorer'), settings.GotoExplorer);
+      if (registry.ValueExists('HashShowMenu')) then
+        settings.HashShowMenu := StrToBoolDef(registry.ReadString('HashShowMenu'), settings.HashShowMenu);
     end;
   except
     // keep default values

src/ExplorerGenieExt/UnitSettingsModel.pas

@@ -3,13 +3,16 @@ submenuCopyFile Dateiname(n) kopieren
 submenuCopyEmail Als E-Mail Link kopieren
 submenuOptions Optionen
 menuGoto Gehe zu Tool
-menuGotoCmd Öffne in Command Prompt
-menuGotoCmdAdmin Öffne in Command Prompt als Admin
-menuGotoPowershell Öffne in Power Shell
-menuGotoPowershellAdmin Öffne in Power Shell als Admin
-menuGotoExplorer Öffne in Explorer
-menuGotoExplorerAdmin Öffne in Explorer als Admin
+submenuGotoCmd Öffne in Command Prompt
+submenuGotoCmdAdmin Öffne in Command Prompt als Admin
+submenuGotoPowershell Öffne in Power Shell
+submenuGotoPowershellAdmin Öffne in Power Shell als Admin
+submenuGotoExplorer Öffne in Explorer
+submenuGotoExplorerAdmin Öffne in Explorer als Admin
+menuHash Hash berechnen
 
+guiCopy Kopieren
+guiPaste Einfügen
 guiClose Schliessen
 guiInfo Information
 guiShowMenu Kontextmenu anzeigen
@@ -22,6 +25,10 @@ guiAsThunderbird Thunderbird und andere
 guiUnc Für verbundene Laufwerke den Netzwerkpfad (UNC) einsetzen
 guiOnlyFile Nur Dateiname ohne Pfad
 guiApplications Anwendungen
+guiHashValues Hashwerte
+guiHashValue Hashwert
+guiAlgorithm Algorithmus
+guiHashVerification Verifiziere Hashwert durch Eintippen oder Einfügen in die Textbox.
 guiVersion Version
 guiCopyright Copyright
 guiWebsite Webseite

src/ExplorerGenieExt/UnitSettingsService.pas

@@ -3,13 +3,16 @@ submenuCopyFile Copy filename(s)
 submenuCopyEmail Copy as email link
 submenuOptions Options
 menuGoto Go to tool
-menuGotoCmd Open in Command Prompt
-menuGotoCmdAdmin Open in Command Prompt as admin
-menuGotoPowershell Open in Power Shell
-menuGotoPowershellAdmin Open in Power Shell as admin
-menuGotoExplorer Open in Explorer
-menuGotoExplorerAdmin Open in Explorer as admin
+submenuGotoCmd Open in Command Prompt
+submenuGotoCmdAdmin Open in Command Prompt as admin
+submenuGotoPowershell Open in Power Shell
+submenuGotoPowershellAdmin Open in Power Shell as admin
+submenuGotoExplorer Open in Explorer
+submenuGotoExplorerAdmin Open in Explorer as admin
+menuHash Calculate hash
 
+guiCopy Copy
+guiPaste Paste
 guiClose Close
 guiInfo Information
 guiShowMenu Show context menu
@@ -22,6 +25,10 @@ guiAsThunderbird Thunderbird and others
 guiUnc Get network path (UNC) for mapped drives
 guiOnlyFile Only filename without path
 guiApplications Tools
+guiHashValues Hash values
+guiHashValue Hash value
+guiAlgorithm Algorithm
+guiHashVerification Verify a hash by typing or pasting it to the text box.
 guiVersion Version
 guiCopyright Copyright
 guiWebsite Website