Quote:
Originally Posted by Masquerade
Please may I have some guidance transitioning my Installer from IsArcEx to using the module included in FMXInno? IsArcEx.dll is getting a lot of hits on VT and people downloading my releases are accusing me of putting trojans in the release.
|
Code:
[Files]
Source: "Files\FMXInno.dll"; Flags: dontcopy;
Code:
type
TCallback = function(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: Integer; DiskName, CurrentFile, RemainsTime, ElapsedTime, CurSpeed, AvgSpeed: WideString): LongWord;
TCallbackEx = function(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB, TotalFiles, CurFiles: Integer; DiskName, CurrentFile, RemainsTime, ElapsedTime, CurSpeed, AvgSpeed: WideString): LongWord;
Code:
var
ISArcExDiskCount : Integer;
ISArcExCancel : Integer;
ISArcExError : Boolean;
ISArcDiskAddingSuccess: Boolean;
Code:
function ISArcExInit(WinHandle: Longint; TimeFormat: Integer; Callback: TCallback): Boolean;
external 'ISArcExInit@files:FMXInno.dll stdcall delayload';
function ISArcExInitEx(WinHandle: Longint; TimeFormat: Integer; Callback: TCallbackEx): Boolean;
external 'ISArcExInitEx@files:FMXInno.dll stdcall delayload';
function ISArcExAddDisks(Inputfile, Password, OutputPath: Widestring): Boolean;
external 'ISArcExAddDisks@files:FMXInno.dll stdcall delayload';
function ISArcExExtract(DiskNumber: Integer; CfgFile, WorkPath: Widestring): Boolean;
external 'ISArcExExtract@files:FMXInno.dll stdcall delayload';
procedure ISArcExCallbackInterval(MSec: Cardinal);
external 'ISArcExCallbackInterval@files:FMXInno.dll stdcall delayload';
function ISArcExGetCallbackInterval: Cardinal;
external 'ISArcExGetCallbackInterval@files:FMXInno.dll stdcall delayload';
procedure ISArcExReduceCalcAccuracy(Factor: Byte); // Factor: 1-5
external 'ISArcExReduceCalcAccuracy@files:FMXInno.dll stdcall delayload';
function SuspendProc: Boolean;
external 'SuspendProc@files:FMXInno.dll stdcall delayload';
function ResumeProc: Boolean;
external 'ResumeProc@files:FMXInno.dll stdcall delayload';
procedure ISArcExStop;
external 'ISArcExStop@files:FMXInno.dll stdcall delayload';
procedure ISArcExCleanUp;
external 'ISArcExCleanUp@files:FMXInno.dll stdcall delayload';
function ChangeLanguage(Language: Widestring): boolean;
external 'ChangeLanguage@files:FMXInno.dll stdcall delayload';
function Exec2(filename, Param: WideString; Show: Boolean): Boolean;
external 'Exec2@files:FMXInno.dll stdcall delayload';