ISSkin 使用技巧,WinXP 下的窗口阴影

是否觉得在使用 ISSkin 的时候感觉窗口太过平板,尤其对于那些窗口边缘和窗口内部颜色一致的皮肤尤其是这样,继续使用 Sakura 皮肤作为讲解,下图就是安装程序的截图,是否觉得就像一张纸一样,缺乏立体感呢?


作为 Vista 以上的 Windows 版本,我们都能够看见窗口的阴影,但是在 WinXP 里面却看不见,但是我们能看见的只有 Windows 提示的阴影.所以以下就是使用了 WinXP 的提示阴影效果,达至看上去窗口有一些立体的感觉.


脚本:
下载地址:
http://restools.hanzify.org/inno/ISSkinSakura/ISSkinSakura.zip

引用来自  ISSkinSakura.iss 引用来自 ISSkinSakura.iss
; 脚本编写: restools
; 我的 BLOG: http://restools.hanzify.org

[Setup]
AppName=ISSkin Example
AppVersion=1.0
DefaultDirName={pf}\ISSkin
SolidCompression=true
WizardImageFile=SakuraWizard.bmp
WizardSmallImageFile=SakuraSmall.bmp
OutputDir=.
OutputBaseFilename=ISSkinSakura

[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy

; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: Sakura.cjstyles; DestDir: {tmp}; Flags: dontcopy

[Code]
// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function GetClassLong(Wnd: HWnd; Index: Integer): Longint;
external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;
external 'SetClassLongA@user32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Sakura.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Sakura.cjstyles'), '');
  Result := True;
end;

procedure DeinitializeSetup();
begin
  // Hide Window before unloading skin so user does not get
  // a glimse of an unskinned window before it is closed.
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

function CheckWin32Version(AMajor: Integer; AMinor: Integer): Boolean;
var
  
WinVer: TWindowsVersion;
begin
  
GetWindowsVersionEx(WinVer);
  Result := (WinVer.Major > AMajor) or
            
((WinVer.Major = AMajor) and
            
(WinVer.Minor >= AMinor));
end;

procedure InitializeWizard();
begin
  
WizardForm.WizardBitmapImage.Height := WizardForm.WelcomePage.Height;
  if CheckWin32Version(5, 1) and (not CheckWin32Version(6, 0)) then
    
SetClassLong(WizardForm.Handle, -26, GetClassLong(WizardForm.Handle, -26) + $20000);
end;




[本日志由 xin 于 2010-06-17 09:37 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Sakura ISSkin
评论: 6 | 引用: 0 | 查看次数: 15553
  • 1
xin [2011-01-11 11:07 PM]
如 WLDNA 所说的修改, 另外, 上面的脚本我屏蔽了 Vista 和 Win7 下的效果, 其实你可以删除以下代码
and (not CheckWin32Version(6, 0))
就可以了.
TonyT [2011-01-11 01:05 PM]
先谢这位仁兄了,我能提问题是经过测试的,不会说明也不看。也只是为了能做的更好。

很遗憾你的方案未能见效。我还是期望阿信的解决。

WLDNA [2011-01-11 09:30 AM]
引用来自 TonyT 引用来自 TonyT
U版下编译的在XP和win7都无效了,还望更新。


仔细看说明哈,vista以上都自带了,所以不支持的说,怎么会 有效呢。
U版下需要修改 A@ 为 W@ 的,呵呵
TonyT [2011-01-09 07:44 PM]
U版下编译的在XP和win7都无效了,还望更新。
Jeffio [2010-07-01 11:35 AM]
效果不错,NSIS如何实现呢?
www.taosuo.net [2010-06-20 05:18 PM]
真是把Inno用神了!
  • 1
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: 验证码
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 5000 字 | UBB代码 开启 | [img]标签 关闭