procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external'LoadSkin@{tmp}\ISSkinEx.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\ISSkinEx.dll stdcall delayload';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkinEx.dll');
ExtractTemporaryFile('Skin.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
Result:= True;
end;
procedure DeinitializeSetup();
begin
Sleep(300);
UnloadSkin();
end;
function InitializeUninstall:boolean;
begin
FileCopy(ExpandConstant('{app}\ISSkinEx.dll'), ExpandConstant('{tmp}\ISSkinEx.dll'), False);
FileCopy(ExpandConstant('{app}\Skin.cjstyles'), ExpandConstant('{tmp}\Skin.cjstyles'), False);
LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
Result := True;
end;
procedure DeinitializeUninstall;
begin
Sleep(300);
UnloadSkin();
end;
|
