解决vclskin可能存在的bug

该bug尤其在使用了FastReport预览，退出程序时可能出现。

bug表现为退出时弹出地址错误： Access violation at address 00000000. Read of address 00000000。

vclskin版本：4.93.11.13

有疑问请与我联系coolslob@163.com

解决方法：将WinSkinForm.pas单元中，如下代码的第26行注释。

1. procedure TWinSkinForm.GetIcon(var bmp:Tbitmap);
2. var
3.   SmallIcon: HIcon;
4.   cx, cy,i: Integer;
5.   sd:Tskindata;
6. begin
7.       cx := GetSystemMetrics(SM_CXSMICON);
8.       cy := GetSystemMetrics(SM_CYSMICON);
9. //      bmp.Assign(nil);
10. //      bmp.canvas.brush.color:=clFuchsia;
11.       bmp.width:=cx;bmp.height:=cy;
12.       bmp.PixelFormat := pf16bit; 
13.       bmp.Canvas.Brush.color:=clFuchsia;
14.       bmp.canvas.fillrect(rect(0,0,cx,cy));
15.       iconx:=cx;
16.       // First try a small icon, then a big icon
17.       DefIcon := SendMessage(hwnd, WM_GETICON, ICON_SMALL, 0);
18.       if DefIcon = 0 then
19.         DefIcon := SendMessage(hwnd, WM_GETICON, ICON_BIG, 0);
21.       if DefIcon <> 0 then begin
22.         SmallIcon := CopyImage(DefIcon, IMAGE_ICON, cx, cy, LR_COPYFROMRESOURCE);
23.         DrawIconEx(bmp.Canvas.Handle, 0, 0, SmallIcon,
24.             cx, cy, 0, 0, DI_MASK or DI_IMAGE );//DI_NORMAL);
25.         DestroyIcon(SmallIcon);
26.       //end else if not fsd.sysicon.empty then  begin //otherwise no icon found
27.          //cause DLL exception
28.          //bmp.assign(fsd.sysicon) ;
29.          //bmp.PixelFormat := pf24bit;
30.          //copybmp(sd.SysIcon,bmp);
31.       end else begin
32.          for i:= 0 to skinmanager.dlist.count-1 do begin
33.              sd:= Tskindata(skinmanager.dlist.items[i]);
34.              if sd.skinformtype=sfMainform then begin
35.                 if not sd.sysicon.empty then
36.                    //copybmp(sd.SysIcon,bmp);
37.                    //bmp.assign(sd.sysicon) ;
38.              end;
39.          end;
40.       end;
41. end;