INNO TROUBLESHOOT - Questions Here

[L33THAK0R]

Hi all,

Does anyone know if Inno Setup supports checksum parts/segments/other-name-here? A lot of my conversions have selective/optional .bins and I usually only supply the checksums for the "main" files, but was wondering if I could have multiple smaller checksum files for each component then splice these together to verify selected parts.

[Masquerade]

Originally Posted by L33THAK0R

Hi all,

Does anyone know if Inno Setup supports checksum parts/segments/other-name-here? A lot of my conversions have selective/optional .bins and I usually only supply the checksums for the "main" files, but was wondering if I could have multiple smaller checksum files for each component then splice these together to verify selected parts.

bat file - copy main.md5+selective.md5 new.md5

[:( Sad8669]

Damn, any idea where should i start to learn basic inno setup functions and stuff?

[KaktoR]

Yes it it possible the way you thought on it. I remember this was the case in all your repacks and I wondered why you made it this way

However, I think there is a more easier way to do this. I guess one of our experts will answer you on this

[Masquerade]

Is there an inno library that support blake3 hashings? ISHash does MD5 but not Blake3.

[KaktoR]

Something like this?
https://github.com/namazso/OpenHashTab

Edit: Scratch it, it's just a shellext installer...

Maybe ask peterf if he got some spare time to add it into ishash

[no.safe]

[Carldric Clement]

I didn't expect it before. the newest version of Inno Setup 6 was no longer code of Application.ProcessMessanges; Is there any similar this code?

[DiCaPrIo]

Originally Posted by Carldric Clement

I didn't expect it before. the newest version of Inno Setup 6 was no longer code of Application.ProcessMessanges; Is there any similar this code?

function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external '[email protected] stdcall';
function TranslateMessage(const lpMsg: TMsg): BOOL; external '[email protected] stdcall';
function DispatchMessage(const lpMsg: TMsg): Longint; external '[email protected] stdcall';

procedure AppProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, 1) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;

[Carldric Clement]

Originally Posted by DiCaPrIo

function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external '[email protected] stdcall';
function TranslateMessage(const lpMsg: TMsg): BOOL; external '[email protected] stdcall';
function DispatchMessage(const lpMsg: TMsg): Longint; external '[email protected] stdcall';

procedure AppProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, 1) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;

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

[Cesar82]

Originally Posted by Carldric Clement

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

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

[1234567890123]

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.

[Masquerade]

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.

[DiCaPrIo]

Originally Posted by Masquerade

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.

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;

[Masquerade]

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