FileForums - INNO TROUBLESHOOT

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - INNO TROUBLESHOOT - Questions Here (https://fileforums.com/showthread.php?t=93193)

Quote:

Originally Posted by Carldric Clement (Post 493636)

almost but there is one thing was unknown type: TMsg; :)

Code:

type

  TMsg = record hWnd: HWND; message: LongWord; wParam: Longint; lParam: Longint; Time: LongWord; pt: TPoint; end;

Is there a way to make a listener (code, etc) that listens to get file size in an inno setup? My goal is to show progress in nanozip. It will listen to the nanozip output file with a time interval and get to the rate of total file size to the current size.

Is there a way to detect the amount of CPU threads / cores there are and do something accordingly?

Eg.

if CPU_THREADS = 6 then
begin
do_stuff
end else begin
do_other_stuff
end;

Asking because some multithreading tools crash when dealing with 6 or 12 threads.

Quote:

Originally Posted by Masquerade (Post 493700)

Code:

function GetSysCores(): Integer;

var

  WbemLocator, WbemServices, WbemObjectSet, WbemObject: Variant;

begin;

  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

  WbemServices := WbemLocator.ConnectServer('localhost', 'root\CIMV2');

  WbemObjectSet := WbemServices.ExecQuery('Select NumberOfCores from Win32_Processor');

  WbemObject := WbemObjectSet.ItemIndex(0);

  Result := WbemObject.Properties_.Item('NumberOfCores').Value;

  WbemLocator:=Unassigned;

  WbemServices:=Unassigned;

  WbemObjectSet:=Unassigned;

  WbemObject:=Unassigned;

end;



function GetSysThreads(): Integer;

var

  WbemLocator, WbemServices, WbemObjectSet, WbemObject: Variant;

begin;

  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

  WbemServices := WbemLocator.ConnectServer('localhost', 'root\CIMV2');

  WbemObjectSet := WbemServices.ExecQuery('Select NumberOfLogicalProcessors from Win32_Processor');

  WbemObject := WbemObjectSet.ItemIndex(0);

  Result := WbemObject.Properties_.Item('NumberOfLogicalProcessors').Value;

  WbemLocator:=Unassigned;

  WbemServices:=Unassigned;

  WbemObjectSet:=Unassigned;

  WbemObject:=Unassigned;

end;

DiCaPrIo
So I would put if GetSysCores = 6 in the if loop after calling the function?

Quote:

Originally Posted by Masquerade (Post 493702)

DiCaPrIo
So I would put if GetSysCores = 6 in the if loop after calling the function?

Code:

procedure InitializeWizard();

var Cores,Threads:Integer;

begin

  Cores:=GetSysCores;

  Threads:=GetSysThreads;

  if Cores = 6 then begin

  //yourcode

  end;

  if Threads = 6 then begin

  //yourcode

  end;

end;

Quote:

Originally Posted by Masquerade (Post 493702)

DiCaPrIo
So I would put if GetSysCores = 6 in the if loop after calling the function?

As the function returns an integer value I think I can use it directly without declaring variables.
if GetSysCores = 6 then
begin

end;

The function can also be simplified using variables of type variant so you can get any supported value just by changing the string you want to search for.

Code:

function GetSysInfo(const WMIClass, WMIProperty: String): Variant;

var

  WbemLocator, WbemServices, WbemObjectSet, WbemObject: Variant;

begin;

  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

  WbemServices := WbemLocator.ConnectServer('localhost', 'root\CIMV2');

  WbemObjectSet := WbemServices.ExecQuery('Select ' + WMIProperty + ' from ' + WMIClass);

  if (not VarIsNull(WbemObjectSet)) and (WbemObjectSet.Count > 0) then begin

    WbemObject := WbemObjectSet.ItemIndex(0);

    if not VarIsNull(WbemObject) then

      Result := WbemObject.Properties_.Item(WMIProperty).Value;

  end;

end;



procedure GetFreeMemory(var Free, Total: Extended);

begin

  Total := GetSysInfo('Win32_OperatingSystem', 'TotalVisibleMemorySize');

  Free := GetSysInfo('Win32_OperatingSystem ', 'FreePhysicalMemory');

end;



function CPUCores: Integer;

begin

  Result := GetSysInfo('Win32_Processor', 'NumberOfCores');

end;



function CPUThreads: Integer;

begin

  Result := GetSysInfo('Win32_Processor', 'NumberOfLogicalProcessors');

end;

You can also use the API if you prefer to get Threads.

Code:

type

  TSystemInfo = record

    wProcessorArchitecture: Word;

    wReserved: Word;

    dwPageSize: DWORD;

    lpMinimumApplicationAddress: Integer;

    lpMaximumApplicationAddress: Integer;

    dwActiveProcessorMask: DWORD;

    dwNumberOfProcessors: DWORD;

    dwProcessorType: DWORD;

    dwAllocationGranularity: DWORD;

    wProcessorLevel: Integer;

    wProcessorRevision: Word;

  end;



procedure GetSystemInfo(var lpSystemInfo: TSystemInfo);

  external '[email protected] stdcall delayload';



function GetCPUThreads: Integer;

var

  SysInfo: TSystemInfo;

begin

  GetSystemInfo(SysInfo);

  Result := SysInfo.dwNumberOfProcessors;

end;

Has anyone had an installer made using inno setup just soft-lock consistently? Trying to unpack an archive but it consistently gets stuck on this one file, refusing to progress any further, the funny thing is though, no error codes are displayed, the applications "elapsed time" function continues to run, with CPU & Disk utilisation dropping to 0%, I'm honestly stumped on this one.

L33THAK0R
This appears an issue with the decompressor you are using and not inno setup itself.

Quote:

Originally Posted by Masquerade (Post 493709)

L33THAK0R
This appears an issue with the decompressor you are using and not inno setup itself.

Ah grim, well that narrows it down to 2 issues then. Fingers crossed I can get it working! I have a feeling it might be due to the assets I ripped, was a bit messy with ripping shit.

Just as a preface, I originally posted this in the "ASIS" thread, but I reckon it might be more applicable here.

So I have a handful of repacks which have selective installs for a collection of titles, with each having its own shortcut to be placed on the users Desktop, should they select this as an option. Currently however, regardless of the end-users selection a shortcut for each entry made for the application is placed on the desktop, even if the target file is not present. It's not a critical issue but it is a slight annoyance.

My proposed solution, as detailed below, was to use a function named "RemoveShortcut", which is used for the uninstaller generated for a given install, as can be seen here:

Code:

[UninstallDelete]

Type: filesandordirs; Name: {app}

#sub RemoveShortcut

  #emit "Type: Files; Name: ""{userdesktop}\" + Trim(ReadIni(SourcePath + "\Settings.ini", "Executable" + Str(i), "ShortcutName", "")) + ".lnk"";"

  #emit "Type: Files; Name: ""{userprograms}\" + Trim(ReadIni(SourcePath + "\Settings.ini", "Settings", "ShortcutName", "")) + "\" + Trim(ReadIni(SourcePath + "\Settings.ini", "Executable" + Str(i), "ShortcutName", "")) + ".lnk"";"

#endsub

#for {i = 1; Trim(ReadIni(SourcePath + "\Settings.ini", "Executable" + Str(i), "ShortcutName", "")) != ""; i++} RemoveShortcut

However this doesn't seem to work, with testing of 2 dummy data files (each housing its own target application, as well as a blank file to be used as a indicator that the selected component was present), demonstrating both shortcuts were removed even when installing only one of the selected components. If anyone has any thoughts on this I'd love to hear them. I initially thought I might be able to use a series of batch scripts instead, with one script for the removal of each component to be run post-install present in a "main" data file, with a given components archive having an identical, but blank script to overwrite the valid script, however I found I wasn't able to consistently CD to the userdesktop, since I didn't initially take into account a user having a desktop location at a location outside of their C: drive.

__________________________________________________ __________

ORIGINAL QUESTION:

Hi all,

Got a small question regarding whether my proposed solution could work at all (I'm terribly new to pascal/delphi). I've got a fair few packs that feature selective, multiple-title offerings to the end-user, each with their own, separate executable to launch from (since some are emulated and require a small script to launch the ROM), as well as their own entry under the shortcut section of the "Settings.ini" file used in ASIS (baked into a executable thats just a batch script wrapped in an exe). My issue is that regardless of the component selection, upon extraction of all selected archives, all desktop shortcuts defined within the "settings.ini" are generated (should the option be selected).

My current thought process is using the "RemoveShortcut" function, in the Post-install section of the script to delete the shortcut, if a given .txt file is missing (which would be packed with a given selective offering), like so:

Code:

    

#if ("{app}\_CommonRedist\APPS\APP_1.txt" == "0") && ("{userdesktop}\APP_1.lnk" == "1")

 #for {i = 1; Trim(ReadIni(SourcePath + "\Settings.ini", "Executable" + Str(i), "ShortcutName", "")) != ""} RemoveShortcut

#endif

#if ("{app}\_CommonRedist\APPS\APP_2.txt" == "0") && ("{userdesktop}\APP_2.lnk" == "1")

 #for {i = 2; Trim(ReadIni(SourcePath + "\Settings.ini", "Executable" + Str(i), "ShortcutName", "")) != ""} RemoveShortcut

#endif

However upon testing this both shortcuts were removed even when installing only one of the selected components. Does anyone have any idea why this might be?

I would like to know if anyone has a solution to my problem. I would like to display the thumbnail in the taskbar and at the same time include a checkbox to keep the installer window on top (over other windows) if the checkbox is checked. If I use the code from the page below to display the installer thumbnail on the taskbar the property "WizardForm.FormStyle" doesn't work.
Part of the code was obtained from: inno-setup-window-preview-in-taskbar

If anyone can help me, I appreciate it.
Below is a code to better understand my question.

Code:

[Setup]

AppName=My App

AppVersion=1.0

DefaultDirName={{#VER > 0x06000000 ? "common" : ""}pf}\My App

DisableWelcomePage=no

OutputBaseFilename=My_App

OutputDir=.



[ code]

const

  GW_OWNER = 4;

  GWL_HWNDPARENT = (-8);



function GetWindowLong(Wnd: HWND; nIndex: Integer): Longint; external '[email protected] stdcall delayload';

function SetWindowLong(Wnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external '[email protected] stdcall delayload';

function GetWindow(hWnd: HWND; uCmd: UINT): HWND; external '[email protected] stdcall delayload';



var

  OnTopCheckBox: TNewCheckBox;

  ////OldParent: Longint;



procedure OnTopCheckBox_OnClick(Sender: TObject);

begin

  if OnTopCheckBox.Checked then

  begin

    ////SetWindowLong(WizardForm.Handle, GWL_HWNDPARENT, OldParent);

    WizardForm.FormStyle := fsStayOnTop;

  end else

  begin

    WizardForm.FormStyle := fsNormal;

    ////SetWindowLong(WizardForm.Handle, GWL_HWNDPARENT, GetWindowLong(GetWindow(WizardForm.Handle, GW_OWNER), GWL_HWNDPARENT));

  end;

end;



procedure InitializeWizard();

begin

  ////OldParent := GetWindowLong(WizardForm.Handle, GWL_HWNDPARENT);



  OnTopCheckBox := TNewCheckBox.Create(WizardForm);

  with OnTopCheckBox do begin

    Parent := WizardForm;

    Caption := 'Keep On Top';

    SetBounds(ScaleX(10), WizardForm.NextButton.Top + ScaleY(2), ScaleX(100), ScaleX(15));

    OnClick := @OnTopCheckBox_OnClick;

  end;



  { work if disable this line }

  SetWindowLong(WizardForm.Handle, GWL_HWNDPARENT, GetWindowLong(GetWindow(WizardForm.Handle, GW_OWNER), GWL_HWNDPARENT));

end;

Hi all.
Could you please help me with the following:
I have an installer for a mod, but if a person uninstalls a mod, the whole game is uninstalled as well.
How can I make it so that only the mod files are deleted?

I was thinking of keeping an install log and taking files from it to delete, but damn, that doesn't work right.
(It doesn't delete files from the list and it doesn't log small files)
I'll attach a sample code)

Thank you in advance.

Code:

Function InitializeUninstall(): Boolean;

begin

  ULog := FileExists(ExpandConstant('{app}\INSTALL.LOG')); // you need to get the log now, it might not exist later

  if ULog then // if there is a log file, create a sheet where we load the list of files

  begin

    unins_list := TStringList.Create;

    unins_list.LoadFromFile(ExpandConstant('{app}\INSTALL.LOG'));

  end;

  Result := True;

end;



Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

  var

    i : Integer;

begin

  If CurUninstallStep = usPostUninstall then

    if ULog then

    begin

      for i := 0 to unins_list.Count-1 do DeleteFile(unins_list:[i]); // delete files from the list - It doesn't work

      unins_list.Free;

    end;

end;

Example here

Quote:

Originally Posted by BYRedex (Post 494904)

Code:

Function InitializeUninstall(): Boolean;

begin

  ULog := FileExists(ExpandConstant('{app}\INSTALL.LOG')); // you need to get the log now, it might not exist later

  if ULog then // if there is a log file, create a sheet where we load the list of files

  begin

    unins_list := TStringList.Create;

    unins_list.LoadFromFile(ExpandConstant('{app}\INSTALL.LOG'));

  end;

  Result := True;

end;



Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

  var

    i : Integer;

begin

  If CurUninstallStep = usPostUninstall then

    if ULog then

    begin

      for i := 0 to unins_list.Count-1 do DeleteFile(unins_list:[i]); // delete files from the list - It doesn't work

      unins_list.Free;

    end;

end;

Example here

The IsDone callback function (ProgressCallback) does not display the names of all files.
This function is called 4 times per second and only the current filename is shown in the output.

If you use a native installation of Inno Setup (No UnArc/ISDone) it will only remove the installed files.

But for you to continue using your script you can create a list using FindFirst and FindNext of all the files that are in the game folder right after the ISDoneInit function.
After the ISDoneStop function you do a new check using FindFirst and FindNext and compare the names with the previous list using:
if oldfileslist.IndexOf(<fullfilename>) < 0 then ins_log.Append(<fullfilename>);

Quote:

Originally Posted by Cesar82 (Post 494907)

Here is my ProgressCallback code

Code:

procedure DeinitializeSetup;

begin

 BASS_Free;

 ForceCloseApp(ExpandConstant('{tmp}'));

end;



function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

var

 s : AnsiString;

 FCurrentFile : String;

begin

  if OveralPct<=1000 then ProgressBar.Value(OveralPct);

  WizardForm.ProgressGauge.Position:=OveralPct;

  FinishLabl5.Text(ExpandConstant('{cm:TIME_TAKEN} ')+TimeStr2);

  InsPageLabl4.Text(ExpandConstant('Осталось около: ')+TimeStr1);

  InsPageLabl5.Text(ExpandConstant('Прошло около: ')+TimeStr2);

  InsPageLabl6.Text(IntToStr(Round(OveralPct div 10))+'% ИЗВЛЕЧЕНО ФАЙЛОВ');

  s := ExpandConstant('{cm:Extracting} ') + CurrentFile;

  If InsLogBox.LineStrings(InsLogBox.LineCount - 1) <> s Then

  begin

   FCurrentFile := MinimizePathName(ExpandConstant('{cm:Extracting} ') +CurrentFile, WizardForm.ReadyMemo.Font, 500 - ScaleX(50))

   InsLogBox.AddLine(FCurrentFile);

  end;

  Result := ISDoneCancel;

end;



procedure CurStepChanged(CurStep: TSetupStep);

var

 ResultCode:Integer;

begin

   if CurStep = ssPostInstall then

   begin

   ISDoneError:=true;

   if ISDoneInit(ExpandConstant('{tmp}\records.inf'), 5555, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin

     repeat

     ChangeLanguage('english');

     SetIniString('srep','temp',ExpandConstant('{app}'),ExpandConstant('{tmp}\cls.ini'));

     Installing:=true;



     #ifdef Data1

     if not ISArcExtract ( 0, {#D1[61]}, ExpandConstant('{src}\{#D1[60]}'), ExpandConstant('{app}'), '', false,('{#Dat1}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #ifdef Data2

     if not ISArcExtract ( 0, {#D2[61]}, ExpandConstant('{src}\{#D2[60]}'), ExpandConstant('{app}'), '', false,('{#Dat2}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #ifdef Data3

     if not ISArcExtract ( 0, {#D3[61]}, ExpandConstant('{src}\{#D3[60]}'), ExpandConstant('{app}'), '', false,('{#Dat3}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #ifdef Data4

     if not ISArcExtract ( 0, {#D4[61]}, ExpandConstant('{src}\{#D4[60]}'), ExpandConstant('{app}'), '', false,('{#Dat4}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #ifdef Data5

     if not ISArcExtract ( 0, {#D5[61]}, ExpandConstant('{src}\{#D5[60]}'), ExpandConstant('{app}'), '', false,('{#Dat5}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #ifdef Data6

     if not ISArcExtract ( 0, {#D6[61]}, ExpandConstant('{src}\{#D6[60]}'), ExpandConstant('{app}'), '', false,('{#Dat6}'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'), false) then break;

     #endif

     #endif

     #endif

     #endif

     #endif

     #endif



     ISDoneError:=false;

     until true;

     ISDoneStop;

    end;

  end;

If you can, please attach an example that I can lean on - it will be easier for me to understand and change my code.
And perhaps an IsDone can be substituted?

UPD/

I have information displayed in FMemo (InsLogBox : FMemo;), can it also be saved to a file?

Code:

s := ExpandConstant('{cm:Extracting} ') + CurrentFile;

  If InsLogBox.LineStrings(InsLogBox.LineCount - 1) <> s Then

  begin

   FCurrentFile := MinimizePathName(ExpandConstant('{cm:Extracting} ') +CurrentFile, WizardForm.ReadyMemo.Font, 500 - ScaleX(50))

   InsLogBox.AddLine(FCurrentFile);