
05-11-2014, 18:54
|
|
Banned
|
|
Join Date: Feb 2014
Location: Black Hole
Posts: 297
Thanks: 116
Thanked 481 Times in 162 Posts
|
|
Quote:
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
or
all
Code:
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;
Last edited by Dante1995; 05-11-2014 at 19:00.
|