You've already forked openshot-qt
mirror of
https://github.com/OpenShot/openshot-qt.git
synced 2026-03-02 08:56:08 -08:00
37 lines
840 B
Plaintext
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; |