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

admin

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

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

1. ; 脚本编写: restools
   
2. 
   
3. [Setup]
   
4. AppName=ISSkin Example
   
5. AppVersion=1.0
   
6. DefaultDirName={pf}ISSkin
   
7. SolidCompression=true
   
8. WizardImageFile=SakuraWizard.bmp
   
9. WizardSmallImageFile=SakuraSmall.bmp
   
10. OutputDir=.
    
11. OutputBaseFilename=ISSkinSakura
    
12. 
    
13. [Files]
    
14. ; Add the ISSkin DLL used for skinning Inno Setup installations.
    
15. Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy
    
16. 
    
17. ; Add the Visual Style resource contains resources used for skinning,
    
18. ; you can also use Microsoft Visual Styles (*.msstyles) resources.
    
19. Source: Sakura.cjstyles; DestDir: {tmp}; Flags: dontcopy
    
20. 
    
21. [Code]
    
22. // Importing LoadSkin API from ISSkin.DLL
    
23. procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
    
24. external 'LoadSkin@files:isskin.dll stdcall';
    
25. 
    
26. // Importing UnloadSkin API from ISSkin.DLL
    
27. procedure UnloadSkin();
    
28. external 'UnloadSkin@files:isskin.dll stdcall';
    
29. 
    
30. // Importing ShowWindow Windows API from User32.DLL
    
31. function ShowWindow(hWnd: Integer; uType: Integer): Integer;
    
32. external 'ShowWindow@user32.dll stdcall';
    
33. 
    
34. function GetClassLong(Wnd: HWnd; Index: Integer): Longint;
    
35. external 'GetClassLongA@user32.dll stdcall';
    
36. function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;
    
37. external 'SetClassLongA@user32.dll stdcall';
    
38. 
    
39. function InitializeSetup(): Boolean;
    
40. begin
    
41.   ExtractTemporaryFile('Sakura.cjstyles');
    
42.   LoadSkin(ExpandConstant('{tmp}Sakura.cjstyles'), '');
    
43.   Result := True;
    
44. end;
    
45. 
    
46. procedure DeinitializeSetup();
    
47. begin
    
48.   // Hide Window before unloading skin so user does not get
    
49.   // a glimse of an unskinned window before it is closed.
    
50.   ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
    
51.   UnloadSkin();
    
52. end;
    
53. 
    
54. function CheckWin32Version(AMajor: Integer; AMinor: Integer): Boolean;
    
55. var
    
56.   WinVer: TWindowsVersion;
    
57. begin
    
58.   GetWindowsVersionEx(WinVer);
    
59.   Result := (WinVer.Major > AMajor) or
    
60.             ((WinVer.Major = AMajor) and
    
61.              (WinVer.Minor >= AMinor));
    
62. end;
    
63. 
    
64. procedure InitializeWizard();
    
65. begin
    
66.   WizardForm.WizardBitmapImage.Height := WizardForm.WelcomePage.Height;
    
67.   if CheckWin32Version(5, 1) and (not CheckWin32Version(6, 0)) then
    
68.     SetClassLong(WizardForm.Handle, -26, GetClassLong(WizardForm.Handle, -26) + $20000);
    
69. end;

复制代码