
03-03-2020, 07:01
|
 |
Registered User
|
|
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 568
Thanked 40 Times in 34 Posts
|
|
Quote:
Originally Posted by BLACKFIRE69
yes.
Code:
[Files]
Source: "pckr.dll"; Flags: dontcopy;
{Code]
var Init: Boolean;
function PInit(const Name, Password: PAnsiChar; Debug: Boolean):Boolean;
external 'PInit@{tmp}\pckr.dll stdcall delayload';
procedure PExtractFile(const FName, Dest: PAnsiChar);
external 'PExtractFile@{tmp}\pckr.dll stdcall delayload';
function InitializeSetup(): Boolean;
var
S:string;
begin
S:=ExpandConstant('{src}');
ExtractTemporaryFile('pckr.dll');
Init:=PInit(S+'\Data.cab','PASSWORD',True);
if Init then begin
PExtractFile('Script.iss',S+'\Script_EXTRACTED.iss');
end;
if FileExists(S+'\Script_EXTRACTED.iss') then MsgBox('Script.iss extracted.',mbInformation,MB_OK);
Result:=False;
end;
copy data.cab to Output folder and try. (Requires the password which you used)
|
Thanks Friend
__________________
Search and Find
|