FMXInno Chronicles: Installer Source Code Index / Repository

[kaka2021]

Originally Posted by audiofeel

I translated it three times and didn't understand anything. after what operation do you need the browser to start from your page? after exiting the installer? on the last page?

Yes, that's right. After the installation is complete, a pop-up page will appear.

[Lucifer Crossman]

Originally Posted by kaka2021

Yes, that's right. After the installation is complete, a pop-up page will appear.

I don't get it. Do you want a window with a website to pop up after installing any game?

[nodesire7]

Originally Posted by kaka2021

https://fileforums.com/showpost.php?...92&postcount=7
Could you please help me take a look and add the installed game pop-up webpage? I have tried this code many times, but it still hasn't worked
if CurStep = ssDone then
ShellExec('open', ' https://www.baidu.com ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

Add the following under `[Icons]` in your Inno Setup script:

[Run]
Filename: "https://www.google.com"; Description: "website"; Flags: postinstall shellexec skipifsilent; Tasks: ; Languages:

This will add a shortcut that opens the Google website after installation.

[kaka2021]

Originally Posted by Lucifer Crossman

I don't get it. Do you want a window with a website to pop up after installing any game?

"Could you please help me see if this term 'secs' can be translated into Chinese?"

[kaka2021]

Originally Posted by nodesire7

Add the following under `[Icons]` in your Inno Setup script:



This will add a shortcut that opens the Google website after installation.

Thank you

[nodesire7]

Originally Posted by audiofeel

I translated it three times and didn't understand anything. after what operation do you need the browser to start from your page? after exiting the installer? on the last page?

I'm having trouble with the Open Setup [17.05].iss script you released; it's not creating shortcuts during my tests.

Here's my INI configuration:

[Execs]

[Execs\AppExe1]
name=Titan Quest II
exe=TQ2.exe
icon=TQ2.exe
args=TQ2_PC
workdir={app}

Is there anything wrong with this?

I also modified the `[Icons]` section, but it still doesn't create shortcuts:

[Icons]
#sub InitIcon
  #define IcnSubSec ReadMInI('GetSubSection', '/MainSec=Execs /Idx=' + Str(i) + ' /RootOnly=true')
  #if IcnSubSec != ""
    #define IcnName ReadMInI('ReadSubString', '/MainSec=Execs /SubSec=' + IcnSubSec + ' /Key=Name')
    #define IcnExe ReadMInI('ReadSubString', '/MainSec=Execs /SubSec=' + IcnSubSec + ' /Key=Exe')
    #define IcnIcon ReadMInI('ReadSubString', '/MainSec=Execs /SubSec=' + IcnSubSec + ' /Key=Icon')
    #define IcnArgs ReadMInI('ReadSubString', '/MainSec=Execs /SubSec=' + IcnSubSec + ' /Key=Args')
    #define IcnWorkDir ReadMInI('ReadSubString', '/MainSec=Execs /SubSec=' + IcnSubSec + ' /Key=WorkDir')
Name: "{autodesktop}\{#IcnName}"; Filename: "{app}\{#IcnExe}"; IconFilename: "{app}\{#IcnIcon}"; Parameters: "{#IcnArgs}"; WorkingDir: "{app}"; Check: CreateDesktopIcons
Name: "{group}\{#IcnName}"; Filename: "{app}\{#IcnExe}"; IconFilename: "{app}\{#IcnIcon}"; Parameters: "{#IcnArgs}"; WorkingDir: "{app}"; Check: CreateGroupIcons
  #endif
#endsub
#for {i = 0; i < MAX_ICONS; i++} InitIcon
#endif

Is there an error in my code?

I see the problem now.

[13:08:11.022] -- Icon entry --
[13:08:11.027] Target filename: C:\Users\Public\Desktop\Titan Quest II.lnk
[13:08:11.030] Creating icon.
[13:08:11.035] Icon successfully created.
[13:08:11.080] -- Icon entry --
[13:08:11.083] Target filename: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\(Default)\Titan Quest II.lnk
[13:08:11.087] Creating directory: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\(Default)

But how to fix it?

[Setup]
; Add this line to explicitly define the Start Menu folder name
DefaultGroupName=Game\{#ReadMInI('ReadString', '/Sec=Setup /Key=Path')}

[Icons]
; Fix: Use {userdesktop} instead of {autodesktop}
Name: "{userdesktop}\{#IcnName}"; Filename: "{app}\{#IcnExe}"; IconFilename: "{app}\{#IcnIcon}"; Parameters: "{#IcnArgs}"; WorkingDir: "{app}"; Check: CreateDesktopIcons
Name: "{group}\{#IcnName}"; Filename: "{app}\{#IcnExe}"; IconFilename: "{app}\{#IcnIcon}"; Parameters: "{#IcnArgs}"; WorkingDir: "{app}"; Check: CreateGroupIcons
  #endif
#endsub
#for {i = 0; i < MAX_ICONS; i++} InitIcon
#endif

This modification should be correct, right?

It workit!

Warning: The "[Setup]" section directive "PrivilegesRequired" is set to "admin," but the script uses the per-user area (userdesktop). Regardless of the Windows version, if the installation is running in administrative install mode, be cautious when making any changes to the per-user area: these changes may not achieve your intended effect. For more information, see the "UsedUserAreasWarning" topic in the help file.

[nodesire7]

Originally Posted by audiofeel

I won't help you here, try translating everything in the russian.ini or english.ini file yourself. that's where it's translated.

I've tried these methods, but I can't translate this part. It needs to be forcibly replaced in Inno Setup because it's a parameter in the DLL. If I want to change it, I have to modify the DLL.

// 替换时分秒
function ReplaceTimeUnits(TimeStr: WideString): WideString;
var
i: Integer;
begin
Result := TimeStr;

// 先处理复数形式，再处理单数形式，避免替换不完整
while Pos(' hrs', Result) > 0 do
Result := Copy(Result, 1, Pos(' hrs', Result) - 1) + ' 小时' + Copy(Result, Pos(' hrs', Result) + 4, Length(Result));

while Pos(' hr', Result) > 0 do
Result := Copy(Result, 1, Pos(' hr', Result) - 1) + ' 小时' + Copy(Result, Pos(' hr', Result) + 3, Length(Result));

while Pos(' secs', Result) > 0 do
Result := Copy(Result, 1, Pos(' secs', Result) - 1) + ' 秒' + Copy(Result, Pos(' secs', Result) + 5, Length(Result));

while Pos(' sec', Result) > 0 do
Result := Copy(Result, 1, Pos(' sec', Result) - 1) + ' 秒' + Copy(Result, Pos(' sec', Result) + 4, Length(Result));

while Pos(' mins', Result) > 0 do
Result := Copy(Result, 1, Pos(' mins', Result) - 1) + ' 分钟' + Copy(Result, Pos(' mins', Result) + 5, Length(Result));

while Pos(' min', Result) > 0 do
Result := Copy(Result, 1, Pos(' min', Result) - 1) + ' 分钟' + Copy(Result, Pos(' min', Result) + 4, Length(Result));
end;

function ProgressCallbackEx(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB, TotalFiles, CurFiles: Integer; DiskName, CurrentFile, RemainsTime, ElapsedTime, CurSpeed, AvgSpeed: WideString): longword;
begin
Page4Arc.Angle(OverallPct, 1000);
Page4Lbl[2].Text(IntToStr(OverallPct div 10) + '%');
Page4Lbl[11].Text(': ' + CurrentFile);
Page4Lbl[12].Text(': ' + ReplaceTimeUnits(RemainsTime));
Page4Lbl[13].Text(': ' + ReplaceTimeUnits(ElapsedTime));
Page5Lbl[3].Text(CustomMessage(UILang + 'Page5Lbl3') + #9 + ': ' + ReplaceTimeUnits(ElapsedTime));

Result:= ISArcExCancel;
end;

I succeeded by modifying it this way.



I checked other script, and it's all similar. Making slight modifications, similar to what I sent, allows for successful replacement.

[nodesire7]

Originally Posted by audiofeel

I won't help you here, try translating everything in the russian.ini or english.ini file yourself. that's where it's translated.

Why do other people encounter errors when installing the downloaded files?

Did the file get corrupted during download?

Have you ever encountered this situation where I can install the file normally after downloading it myself, but others can't?

Does the packaging method have hardware requirements during decompression?

[kaka2021]

Originally Posted by audiofeel

The design has been slightly changed, the pages are made on the FTABCONTROL. Custom switches.

I would like to report that my Windows 11 system is encountering recurring crashes and errors. I request assistance to resolve this issue.

[kaka2021]

Originally Posted by audiofeel

The design has been slightly changed, the pages are made on the FTABCONTROL. Custom switches.

I would like to report that my Windows 11 system is encountering recurring crashes and errors. I request assistance to resolve this issue.

[KenGamer]

is it possible if someone can make an anime themed design for me?

[KenGamer]

Originally Posted by audiofeel

Someone asked:

Yes, of course it’s possible. For this, we need to integrate Skia.
The result will be almost identical.

Although the author deleted their original post, I’ll leave this one here as an example.

The installer uses FMXInno.dll for the UI, with rendering handled via Skia and custom graphical effects written in SKSL.
There is no component selection, etc., so it is suitable for small games.

Skia4Delphi: v5.0.0 (Skia v107.2.0)
Includes animations, path selection, shortcut creation, and no uninstaller.

suitable for small games you mean it can't be used to repack games that are about 100gb?

also I'm getting an error during compiling which says line 33 value of [setup] section directive "wizard style" is invalid

[fabrieunko]

Hello, which version of InnoSetup should I compile with? I have version 6.0.5 (u) installed and I'm getting an error message.

[nodesire7]

Originally Posted by audiofeel

Inno Setup-6.6.1
https://files.jrsoftware.org/is/6/innosetup-6.6.1.exe

I'm currently encountering a problem. I've always been using the packaging method you recommended to me, "Simple_Compressor," but it has a problem: it's very slow. I've seen repacks like FitGirl have a "CPU limit removal" option. How is this implemented? Are there any existing tools available?

[ReDsHanks2]

hello! I tried the DrearyGlass using panker1992 masked compressor, everytime I compile and click the install, there's always a error like "unknown compressor method srep64", may I know how to fix this? this is the compressor

arc a -ma9 -ds -lc1024 -ld1024 -di -i1 -ep1 -ed -r -hp -pYourpassword -w.\ Data\data1.bin -moptimal