Files
openshot-qt/installer/isportable.iss
2021-12-01 15:38:27 -06:00

37 lines
840 B
Plaintext

// -- IsPortable.iss --
// Include file with support functions for portable mode
//
[Code]
function PortableCheck: Boolean;
begin
Result := ExpandConstant('{param:portable|0}') = '1';
end;
function GetAppId(Param: String): String;
begin
Result := Param;
if PortableCheck then
Result := Result + ' Portable';
end;
function GetDefaultDirName(Param: String): String;
begin
if PortableCheck then
Result := '{autodesktop}'
else
Result := '{autopf}';
Result := ExpandConstant(AddBackslash(Result) + Param);
end;
<event('InitializeWizard')>
procedure IsPortableInitializeWizard;
begin
if PortableCheck then
WizardForm.NoIconsCheck.Checked := True;
end;
<event('ShouldSkipPage')>
function IsPortableShouldSkipPage(PageID: Integer): Boolean;
begin
Result := (PageID = wpSelectProgramGroup) and PortableCheck;
end;