-+- COMPLETE - Inno Setup Script -+-

[minh_k43sj]

Originally Posted by Dante1995

BBoxScript is test
working 100%
lang english

How to add skin.cjstyles to scrip, please help me

[Dante1995]

Originally Posted by minh_k43sj

How to add skin.cjstyles to scrip, please help me

Simply enter the code under the following headings in blue and if there is no paste all the code

ex: only

UnloadSkin;

or
all

procedure DeinitializeUninstall;
begin
UnloadSkin;
end;

Simply enter the isSkin.dll files and Tiger.cjstyles in the folder style

#define SkinDll "isSkin.dll"
#define StyleName "Tiger.cjstyles"

[Setup]

[Files]
Source: "style\{#SkinDll}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;
Source: "style\{#StyleName}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;

[ Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\{#SkinDll} stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\{#SkinDll} stdcall delayload';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external '[email protected] stdcall';

function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('{#SkinDll}');
ExtractTemporaryFile('{#StyleName}');
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');

Result:=True;
end;

procedure DeinitializeSetup;
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}') ), 0);
UnloadSkin;
end;

function InitializeUninstall: Boolean;
begin
FileCopy(ExpandConstant('{app}\{#SkinDll}'), ExpandConstant('{tmp}\{#SkinDll}'), False);
FileCopy(ExpandConstant('{app}\{#StyleName}'), ExpandConstant('{tmp}\{#StyleName}'), False);
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');
Result:=True;
end;

procedure DeinitializeUninstall;
begin
UnloadSkin;
end;