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

雨点打透心脏的1/2处 2022-03-31 02:56 223阅读 0赞

原文 [http://restools.hanzify.org/article.asp?id=109][http_restools.hanzify.org_article.asp_id_109]

是否觉得在使用 ISSkin 的时候感觉窗口太过平板,尤其对于那些窗口边缘和窗口内部颜色一致的皮肤尤其是这样,继续使用 Sakura 皮肤作为讲解,下图就是安装程序的截图,是否觉得就像一张纸一样,缺乏立体感呢?  
![在新窗口打开图片][s1.gif]  
  
作为 Vista 以上的 Windows 版本,我们都能够看见窗口的阴影,但是在 WinXP 里面却看不见,但是我们能看见的只有 Windows 提示的阴影.所以以下就是使用了 WinXP 的提示阴影效果,达至看上去窗口有一些立体的感觉.  
![在新窗口打开图片][s2.gif]  
  
脚本:  
下载地址:  
[http://restools.hanzify.org/inno/ISSkinSakura/ISSkinSakura.zip][http_restools.hanzify.org_inno_ISSkinSakura_ISSkinSakura.zip]

![引用来自  ISSkinSakura.iss][ISSkinSakura.iss] 引用来自 ISSkinSakura.iss

; 脚本编写: restools  
; 我的 BLOG:[http://restools.hanzify.org][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  
procedureLoadSkin(lpszPath:String; lpszIniFileName:String);  
external'LoadSkin@files:isskin.dll stdcall';  
  
// Importing UnloadSkin API from ISSkin.DLL  
procedureUnloadSkin();  
external'UnloadSkin@files:isskin.dll stdcall';  
  
// Importing ShowWindow Windows API from User32.DLL  
functionShowWindow(hWnd: Integer; uType: Integer): Integer;  
external'ShowWindow@user32.dll stdcall';  
  
functionGetClassLong(Wnd: HWnd; Index: Integer): Longint;  
external'GetClassLongA@user32.dll stdcall';  
functionSetClassLong(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;  
  
functionCheckWin32Version(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;  
ifCheckWin32Version(5, 1)and(notCheckWin32Version(6, 0))then  
SetClassLong(WizardForm.Handle, -26, GetClassLong(WizardForm.Handle, -26) + $20000);  
end;

[http_restools.hanzify.org_article.asp_id_109]: http://restools.hanzify.org/article.asp?id=109
[s1.gif]: http://restools.hanzify.org/inno/ISSkinSakura/s1.gif
[s2.gif]: http://restools.hanzify.org/inno/ISSkinSakura/s2.gif
[http_restools.hanzify.org_inno_ISSkinSakura_ISSkinSakura.zip]: http://restools.hanzify.org/inno/ISSkinSakura/ISSkinSakura.zip
[ISSkinSakura.iss]: http://restools.hanzify.org/images/quote.gif
[http_restools.hanzify.org]: http://restools.hanzify.org/
[Inno Setup]: http://www.jrsoftware.org/isinfo.php