Code refactoring

This commit is contained in:
Jaex 2024-01-22 03:38:49 +03:00
parent 575973f8b0
commit c97126a464

View file

@ -102,21 +102,17 @@ Root: "HKCU"; Subkey: "Software\Classes\SystemFileAssociations\image\shell\Share
#include "CodeDependencies.iss" #include "CodeDependencies.iss"
[Code] [Code]
function IsAdmin(): Boolean; function IsAdmin: Boolean;
begin begin
Result := (IsAdminLoggedOn or IsPowerUserLoggedOn); Result := (IsAdminLoggedOn or IsPowerUserLoggedOn);
end; end;
procedure InitializeWizard(); procedure InitializeWizard;
var
installDir: String;
begin begin
if IsAdmin() then if not IsAdmin then
installDir := ExpandConstant('{pf}\{#MyAppName}') begin
else WizardForm.DirEdit.Text := ExpandConstant('{userpf}\{#MyAppName}');
installDir := ExpandConstant('{userpf}\{#MyAppName}'); end;
WizardForm.DirEdit.Text := installDir;
Dependency_InitializeWizard; Dependency_InitializeWizard;
end; end;