View Single Post
  #16  
Old 03-03-2020, 07:01
ADMIRAL's Avatar
ADMIRAL ADMIRAL is offline
Registered User
 
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 568
Thanked 40 Times in 34 Posts
ADMIRAL is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
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
Reply With Quote
Sponsored Links