CodeMirror/ShareX
1
0
Fork 0
mirror of https://github.com/ShareX/ShareX.git synced 2024-06-24 17:20:58 +12:00
Code Issues Packages Projects Releases Wiki Activity

Inno Setup Code to choose pf or userpf

Browse source
This commit is contained in:
Michael D 2024-01-22 07:13:23 +08:00
parent 7e487cefcb
commit 6db2c3aa07
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
ShareX.Setup/InnoSetup/ShareX-setup.iss
View file

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