ASIS: Advanced Simple Installer Script - Page 46

Schabik · #**676** 22-03-2019, 04:53

Ok, sory @bubobih for the "out of the blue" question for @KaktoR but.

@KaktoR can You tell me what I must add to Your script if I want to check if the component was selected or not and components are checked ("=1") in the settings.ini

For example I want to check if Components are enabled in settings.ini and Polish language was selected (As Components name I'll use cm:PL) can I check if it is selected by adding something like this:

Code:

 if ({#UseComponents} = 1) and (IsComponentSelected(GetIniString('ComponentsSettings', 'Component' + IntToStr(CompIndexList[I])+ '.Name' = 'cm:PL')) then
      begin

Of course I know the code above is wrong and It won't work but with some adjustments I'm sure it would.

KaktoR · #**677** 22-03-2019, 06:07

I think I don't understand your question right.

If you select a cmomponent in installer, it will be extracted. If it is not selected, installer will not extract it.

Schabik · #**678** 22-03-2019, 07:10

Quote:

Originally Posted by KaktoR

I think I don't understand your question right.

If you select a cmomponent in installer, it will be extracted. If it is not selected, installer will not extract it.

The extract part is OK, although I'm having problems with understanding the new code.

I have to run a program conditionally that targets in AC1 .forge.patch files.

The condition is that it only should run when Polish or Czech language is selected. How to check if Polish (for example component3.Name=cm:PL) is selected to run the program and run it if the condition is fulfilled?

In Beta6 or 7 it was easy, check if "IsComponentSelected('lang\PolishLang')" and then run program to patch the forge files but now it's not clear for me.

KaktoR · #**679** 22-03-2019, 14:57

Ok now I understand.

I will look.

Schabik · #**680** 22-03-2019, 22:09

Quote:

Originally Posted by KaktoR

Ok now I understand.

I will look.

Thanks 😊

Cesar82 · #**681** 23-03-2019, 19:41

Quote:

Originally Posted by Schabik

The extract part is OK, although I'm having problems with understanding the new code.

I have to run a program conditionally that targets in AC1 .forge.patch files.

The condition is that it only should run when Polish or Czech language is selected. How to check if Polish (for example component3.Name=cm:PL) is selected to run the program and run it if the condition is fulfilled?

In Beta6 or 7 it was easy, check if "IsComponentSelected('lang\PolishLang')" and then run program to patch the forge files but now it's not clear for me.

How to use by ID (ID is the number of the component represented by "#" in keys Component#.Name=):

Code:

  if IsComponentSelectedByID(3) then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

How to use by Name (Same name that you used in INI):
- If you have "Character Backslash" in the name you will check with dependence on "Level".
- If you do not have "Character Backslash" in the name you will only check on the components with "Component#.File" other than empty.

Code:

  if IsComponentSelectedByName('Game Components\') then 
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Code:

  if IsComponentSelectedByName('Game Components\Custom Name') then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Code:

  if IsComponentSelectedByName('Game Components\cm:FR') then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Schabik · #**682** 24-03-2019, 09:45

Quote:

Originally Posted by Cesar82

How to use by ID (ID is the number of the component represented by "#" in keys Component#.Name=):

Code:

  if IsComponentSelectedByID(3) then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

How to use by Name (Same name that you used in INI):
- If you have "" in the name you will check with dependence on "Level".
- If you do not have "" in the name you will only check on the components with "Component # .File" other than empty.

Code:

  if IsComponentSelectedByName('Game Components\') then 
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Code:

  if IsComponentSelectedByName('Game Components\Custom Name') then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Code:

  if IsComponentSelectedByName('Game Components\cm:FR') then
    MsgBox('True', mbInformation, MB_OK)
  else
    MsgBox('False', mbInformation, MB_OK);

Do I need to add some decelerations to the code for IsComponentSelectedByID or IsComponentSelectedByName functions?

KaktoR · #**683** 24-03-2019, 09:54

You can use the folowing for CurStep = ssPostInstall or CurStep = ssDone (like you wish)

Code:

if IsComponentSelectedByName('Game Components\cm:PL') then
    {Execute program here (you can use Exec2 function)}
if IsComponentSelectedByName('Game Components\cm:CZ') then
    {Execute program here (you can use Exec2 function)}

Btw, I rework the Redist page. New update will follow in the next days.

Schabik · #**684** 24-03-2019, 11:35

Quote:

Originally Posted by KaktoR

You can use the folowing for CurStep = ssPostInstall or CurStep = ssDone (like you wish)

Code:

if IsComponentSelectedByName('Game Components\cm:PL') then
    {Execute program here (you can use Exec2 function)}
if IsComponentSelectedByName('Game Components\cm:CZ') then
    {Execute program here (you can use Exec2 function)}

Btw, I rework the Redist page. New update will follow in the next days.

OK, thanks a lot guys 😁 I'll check it out tomorrow, because today is Sunday and in my country about 8:30 PM. 😋

Ok, after adding the conditions and trying to compile I've got an error says that a comma is expected. after looking at the end of the line the comma is added but in the 94-th column there should't be a comma.
2019-03-25_09h12_11.png

I'm attaching my script.

Cesar82 · #**685** 25-03-2019, 01:58

Quote:

Originally Posted by Schabik

OK, thanks a lot guys 😁 I'll check it out tomorrow, because today is Sunday and in my country about 8:30 PM. 😋

Ok, after adding the conditions and trying to compile I've got an error says that a comma is expected. after looking at the end of the line the comma is added but in the 94-th column there should't be a comma.
Attachment 24411

I'm attaching my script.

try:
Goto line 4225 and replace in this line end; by #endif
Now goto line 3945 and delete this for lines ( 3945, 3946, 3947, 3948 ) and insert:

Code:

    #if UseComponents == "1"
    if (IsComponentSelectedByName('cm:GameLang\cm:PL')) then
    begin
      WizardForm.ProgressGauge.Hide;
      WizardForm.StatusLabel.Caption := ExpandConstant('{cm:PatchingFiles}');

Attached is a way for you to simplify the code of applying the path with xdelta.
Only the file names change, so it's more practical to create a loop

Schabik · #**686** 25-03-2019, 02:13

Quote:

Originally Posted by Cesar82

try:
Goto line 4225 and replace in this line end; by #endif
Now goto line 3945 and delete this for lines ( 3945, 3946, 3947, 3948 ) and insert:

Code:

    #if UseComponents == "1"
    if (IsComponentSelectedByName('cm:GameLang\cm:PL')) then
    begin
      WizardForm.ProgressGauge.Hide;
      WizardForm.StatusLabel.Caption := ExpandConstant('{cm:PatchingFiles}');

Nope, still the same

Ok, I've got it now.

in:

Code:

RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#Name}_is1', 'EstimatedSize', Round(InstallationSize / 1024));

my {#Name} constant is "Assassin's Creed", the apostrophe causes the error...
Is there a way to replace the apostrophe for the name of the Game to be complete?
Unfortunately I think the game's name must be with the apostrophe for registry entries to work

Cesar82 · #**687** 25-03-2019, 02:28

Quote:

Originally Posted by Schabik

Nope, still the same

Ok, I've got it now.

in:

Code:

RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#Name}_is1', 'EstimatedSize', Round(InstallationSize / 1024));

my {#Name} constant is "Assassin's Creed", the apostrophe causes the error...
Is there a way to replace the apostrophe for the name of the Game to be complete?
Unfortunately I think the game's name must be with the apostrophe for registry entries to work

replace line by:

Code:

RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#StringChange(Name, "'", "''")}_is1', 'EstimatedSize', Round(InstallationSize / 1024));

Look at the previous post the script I posted;

Schabik · #**688** 25-03-2019, 03:24

Quote:

Originally Posted by Cesar82

replace line by:

Code:

RegWriteDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#StringChange(Name, "'", "''")}_is1', 'EstimatedSize', Round(InstallationSize / 1024));

Look at the previous post the script I posted;

Thanks

Ok, About DPICalculator, I think it Does work for 125% Scale but on 100% it does This:

2019-03-25_14h14_37.png

and on 150% does this:

2019-03-25_14h15_52.png

KaktoR · #**689** 25-03-2019, 07:40

Unfortunatelly I only have a FullHD monitor (1920x1080) and therefore I can't test the DPI right. Maybe Cesar is in the mood to fix this someday

Cesar82 · #**690** 25-03-2019, 07:41

Quote:

Originally Posted by Schabik

Thanks

Ok, About DPICalculator, I think it Does work for 125% Scale but on 100% it does This:

Attachment 24413

and on 150% does this:

Attachment 24414

I do not know what's happening to you.
Here in Full HD resolution change to 125%, 150% 175% works normal.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
[Help] need Advanced Installer script with Razor1911's UltraArc module	rez3vil	Conversion Tutorials	3	15-04-2024 02:24
Portable Installer Inno Setup Script	y_thelastknight	Conversion Tutorials	59	23-10-2020 00:02
INDEX - Conversion Tutorial Index	Razor12911	Conversion Tutorials	5	11-06-2020 02:05
Simple Arc Installer	78372	Conversion Tutorials	1	15-06-2017 15:37
MSC+Srep+lzma Simple Script Example	gozarck	Conversion Tutorials	10	07-09-2015 16:31

The Following User Says Thank You to KaktoR For This Useful Post:
Titeuf (22-03-2019)

The Following User Says Thank You to Schabik For This Useful Post:
KaktoR (22-03-2019)

The Following 4 Users Say Thank You to Cesar82 For This Useful Post:
KaktoR (24-03-2019), mausschieber (24-03-2019), pakrat2k2 (24-03-2019), Titeuf (24-03-2019)

The Following User Says Thank You to Schabik For This Useful Post:
Titeuf (25-03-2019)

The Following User Says Thank You to Cesar82 For This Useful Post:
Titeuf (25-03-2019)

The Following User Says Thank You to Schabik For This Useful Post:
Cesar82 (25-03-2019)