added Inno Setup

Author: unalignedcoder

.github/workflows/release.yml

@@ -65,7 +65,7 @@ jobs:
 
     - name: Debugging - Print changed files
       run: |
-          echo "Changed files: $CHANGED_FILES"
+        echo "Changed files: $CHANGED_FILES"
 
     - name: Create and push tag (if it doesn't exist and files have changed)
       if: env.TAG_EXISTS == 'false' && env.FILES_CHANGED == 'true'

CalibreImport/InnoSetup/CalibreImportSetup.iss

@@ -1,26 +1,37 @@
+#define AppDll "CalibreImport.dll"
+#define ConfigFile "CalibreImport.config"
+#define ReleaseFilesPath "..\ReleaseFiles\"
+
 [Setup]
 AppName=YourAppName
 AppVersion=1.0
 DefaultDirName={pf}\CalibreImport
 DefaultGroupName=Calibre Import Shell Extension
 UninstallDisplayIcon={app}\YourApp.exe
-OutputDir=..\ReleaseFiles
+OutputDir={#ReleaseFilesPath}
 OutputBaseFilename=CalibreImportSetup
 Compression=lzma
 SolidCompression=yes
 
 [Files]
-Source: "..\ReleaseFiles\CalibreImport.dll"; DestDir: "{app}"; Flags: ignoreversion
-Source: "..\ReleaseFiles\CalibreImport.config"; DestDir: "{userappdata}\YourAppName"; Flags: ignoreversion
+Source: "{#ReleaseFilesPath}{#AppDll}"; DestDir: "{app}"; Flags: ignoreversion
+Source: "{#ReleaseFilesPath}{#ConfigFile}"; DestDir: "{userappdata}\YourAppName"; Flags: ignoreversion
 
 [Icons]
 Name: "{group}\YourAppName"; Filename: "{app}\YourApp.exe"
 
 [Code]
+const
+  AppDll = '{#AppDll}'; // Use preprocessor variable
+  ConfigFile = '{#ConfigFile}'; // Use preprocessor variable
+  ReleaseFilesPath = '{#ReleaseFilesPath}'; // Use preprocessor variable
+
 var
   PortableMode: Boolean;
   RestartExplorer: Boolean;
   InstallPath: String;
+  PortableModeCheck: TNewCheckBox;
+  RestartExplorerCheck: TNewCheckBox;
 
 function IsDotNet48Installed: Boolean;
 var
@@ -48,45 +59,55 @@ begin
   { Initialize variables }
   PortableMode := False;
   RestartExplorer := False;
+  
+    { Initialize InstallPath with a default directory }
+  InstallPath := ExpandConstant('{sd}'); // Default to the system drive (e.g., C:\)
 
   { Create a checkbox for portable mode }
-  WizardForm.PortableModeCheck := TNewCheckBox.Create(WizardForm);
-  WizardForm.PortableModeCheck.Parent := WizardForm.SelectDirPage;
-  WizardForm.PortableModeCheck.Left := WizardForm.SelectDirLabel.Left;
-  WizardForm.PortableModeCheck.Top := WizardForm.SelectDirEdit.Top + WizardForm.SelectDirEdit.Height + 10;
-  WizardForm.PortableModeCheck.Width := WizardForm.SelectDirLabel.Width;
-  WizardForm.PortableModeCheck.Caption := 'Install in portable mode';
-  WizardForm.PortableModeCheck.Checked := PortableMode;
+  PortableModeCheck := TNewCheckBox.Create(WizardForm);
+  PortableModeCheck.Parent := WizardForm.SelectDirPage;
+  PortableModeCheck.Left := WizardForm.DirEdit.Left; // Use DirEdit instead of SelectDirLabel
+  PortableModeCheck.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 10;
+  PortableModeCheck.Width := WizardForm.DirEdit.Width; // Use DirEdit instead of SelectDirLabel
+  PortableModeCheck.Caption := 'Install in portable mode';
+  PortableModeCheck.Checked := PortableMode;
 
   { Create a checkbox for restarting Explorer }
-  WizardForm.RestartExplorerCheck := TNewCheckBox.Create(WizardForm);
-  WizardForm.RestartExplorerCheck.Parent := WizardForm.FinishedPage;
-  WizardForm.RestartExplorerCheck.Left := WizardForm.FinishedLabel.Left;
-  WizardForm.RestartExplorerCheck.Top := WizardForm.FinishedLabel.Top + WizardForm.FinishedLabel.Height + 10;
-  WizardForm.RestartExplorerCheck.Width := WizardForm.FinishedLabel.Width;
-  WizardForm.RestartExplorerCheck.Caption := 'Restart Windows Explorer after installation';
-  WizardForm.RestartExplorerCheck.Checked := RestartExplorer;
+  RestartExplorerCheck := TNewCheckBox.Create(WizardForm);
+  RestartExplorerCheck.Parent := WizardForm.FinishedPage;
+  RestartExplorerCheck.Left := WizardForm.FinishedLabel.Left;
+  RestartExplorerCheck.Top := WizardForm.FinishedLabel.Top + WizardForm.FinishedLabel.Height + 10;
+  RestartExplorerCheck.Width := WizardForm.FinishedLabel.Width;
+  RestartExplorerCheck.Caption := 'Restart Windows Explorer after installation';
+  RestartExplorerCheck.Checked := RestartExplorer;
 end;
 
 procedure CurStepChanged(CurStep: TSetupStep);
+var
+  SourceAppDll, SourceConfigFile: String;
+  ResultCode: Integer; // Declare ResultCode variable
 begin
   if CurStep = ssPostInstall then
   begin
+    { Resolve the full paths to the source files }
+    SourceAppDll := ExpandConstant('{src}\' + ReleaseFilesPath + AppDll);
+    SourceConfigFile := ExpandConstant('{src}\' + ReleaseFilesPath + ConfigFile);
+
     if PortableMode then
     begin
       { Copy files to the selected folder }
-      FileCopy(ExpandConstant('{app}\YourApp.dll'), InstallPath + '\YourApp.dll', False);
-      FileCopy(ExpandConstant('{app}\YourSettingsFile.ini'), InstallPath + '\YourSettingsFile.ini', False);
+      FileCopy(SourceAppDll, InstallPath + '\' + AppDll, False);
+      FileCopy(SourceConfigFile, InstallPath + '\' + ConfigFile, False);
     end
     else
     begin
       { Copy files to Program Files and AppData }
-      FileCopy(ExpandConstant('{app}\YourApp.dll'), ExpandConstant('{pf}\YourAppName\YourApp.dll'), False);
-      FileCopy(ExpandConstant('{app}\YourSettingsFile.ini'), ExpandConstant('{userappdata}\YourAppName\YourSettingsFile.ini'), False);
+      FileCopy(SourceAppDll, ExpandConstant('{pf}\YourAppName\' + AppDll), False);
+      FileCopy(SourceConfigFile, ExpandConstant('{userappdata}\YourAppName\' + ConfigFile), False);
     end;
 
     { Register the DLL using regasm }
-    Exec(ExpandConstant('{win}\Microsoft.NET\Framework\v4.0.30319\regasm.exe'), ExpandConstant('"{app}\YourApp.dll" /codebase'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
+    Exec(ExpandConstant('{win}\Microsoft.NET\Framework\v4.0.30319\regasm.exe'), ExpandConstant('"{app}\' + AppDll + '" /codebase'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
 
     if RestartExplorer then
     begin
@@ -101,18 +122,18 @@ procedure CurPageChanged(CurPageID: Integer);
 begin
   if CurPageID = wpSelectDir then
   begin
-    PortableMode := WizardForm.PortableModeCheck.Checked;
+    PortableMode := PortableModeCheck.Checked;
     if PortableMode then
     begin
       { Show folder picker for portable mode }
-      if BrowseForFolder('Select the folder for portable installation', '', InstallPath) then
+      iif BrowseForFolder('Select the folder for portable installation', InstallPath, True) then
       begin
         WizardForm.DirEdit.Text := InstallPath;
       end;
     end;
   end
   else if CurPageID = wpFinished then
   begin
-    RestartExplorer := WizardForm.RestartExplorerCheck.Checked;
+    RestartExplorer := RestartExplorerCheck.Checked;
   end;
 end;