Cleanup variables.

jrsoftware · Nov 18, 2024 · 9d8d786 · 9d8d786
1 parent dbbb08d
commit 9d8d786
Show file tree

Hide file tree

Showing 2 changed files with 183 additions and 167 deletions.
diff --git a/Projects/Src/Setup.ScriptFunc.HelperFunc.pas b/Projects/Src/Setup.ScriptFunc.HelperFunc.pas
@@ -53,6 +53,7 @@ procedure NoUninstallFuncError(const C: AnsiString); overload;
 procedure OnlyUninstallFuncError(const C: AnsiString); overload;
 function GetMainForm: TMainForm;
 function GetWizardForm: TWizardForm;
+function GetWizardFormHandle: HWND;
 function GetUninstallProgressForm: TUninstallProgressForm;
 function GetMsgBoxCaption: String;
 procedure InitializeScaleBaseUnits;
@@ -121,7 +122,15 @@ function GetWizardForm: TWizardForm;
 begin
   Result := WizardForm;
   if Result = nil then
-    InternalError('An attempt was made to access WizardForm before it has been created'); 
+    InternalError('An attempt was made to access WizardForm before it has been created');
+end;
+
+function GetWizardFormHandle: HWND;
+begin
+  if Assigned(WizardForm) then
+    Result := WizardForm.Handle
+  else
+    Result := 0;
 end;
 
 function GetUninstallProgressForm: TUninstallProgressForm;