[V1.30.2011.501版]WimTool -- Wim文件的图形视窗处理工具[无忧首发]

火焙鱼

下了，支持老九，新年快乐！

hehui

又更新了！！！！！！！

lxl1638

V1.08.02.12F版更新：
1、WimTool.EXE 支持设置真彩色图标；
2、WimShExt.DLL 除支持个性化图标外，还支持注册表中默认图标；
　 先个性化图标，若没有设置先个性化图标，再设置注册表中默认图标
3、去掉了 WimShExt.DLL 中的资源图标，WimShExt.DLL 由21K精简到18K；
4、附件中附有DLL的注册方法和两个带有图标的小工具(示例)；

stwcb2007

反馈一点问题

使用最新版WIMTOOL
点击这个浏览会被无故踢出来
就在直接退出程序
并不是每次都会
偶尔会偶尔不会

使用的是深度XP5.9

发个图更清楚一点

lxl1638

原帖由 nn2nn 于 2008-2-13 12:46 PM 发表
3、去掉了 WimShExt.DLL 中的资源图标，WimShExt.DLL 由21K精简到18K；

这个好。

有空你做一个专门的工具，将ICON写入WIM的XMLINFO内，或者可以在你原来的工具中加多一个选项，选择不同的方式写入WIM的ICON。
一种是你原来的方式，写到WIM后面；二是写在XML内。

lxl1638

在XML内不能以RES方式写入，XML内只能是字符串数据，所以要将ICON数据转成BASE64编码，以BASE64编码形式写入，WimShExt.DLL内置了BASE64解码功能。BASE64编码的Delphi函数本人已发在论坛中。

[ 本帖最后由 lxl1638 于 2008-2-13 12:58 PM 编辑 ]

lxl1638

原帖由 nn2nn 于 2008-2-13 12:59 PM 发表
这知道，你要将ICON数据转成BASE64编码，还是将RES数据转成BASE64编码？

ICON数据。

{var IconStream: TmemoryStream;}
IconStream := TmemoryStream.Create;
WriteIcon(IconStream, MyIcon{HICON}, false);
Nodes[RootID].WriteWideString('ICON', WideString(BinToBase64(IconStream.Memory, IconStream.Size)));
IconStream.Free;

红色是你提供的。

lxl1638

1. 
   
2. const
   
3. //BASE64码元表
   
4. BaseTable: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
   
5. 
   
6. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   
7. //BASE64编码函数
   
8. function BinToBase64(const PDat: PBYTE; const DatLen: DWORD): string;
   
9. var s, s1: string;
   
10.   i, p, len, n, Addnum: DWORD;
    
11.   PBin: PBYTE;
    
12. begin
    
13.   result := '';
    
14.   S := '';
    
15.   addnum := 0;
    
16.   PBin := PDat;
    
17.   for i := 1 to DatLen do
    
18.   begin
    
19.     S := S + IntToHex(PBin^, 2);
    
20.     PBin := PBYTE(DWORD(PDat) + i);
    
21.   end;
    
22.   case (length(s) mod 3) of
    
23.     0: addnum := 0;
    
24.     1: begin
    
25.         s := s + '00';
    
26.         addnum := 2;
    
27.       end;
    
28.     2: begin
    
29.         s := s + '0';
    
30.         addnum := 1;
    
31.       end;
    
32.   end;
    
33.   len := length(s) div 3;
    
34.   for i := 1 to len do
    
35.   begin
    
36.     s1 := midstr(S, i * 3 - 2, 3);
    
37.     p := strtoint('$' + s1);
    
38.     n := p div 64;
    
39.     result := result + basetable[n + 1];
    
40.     n := p mod 64;
    
41.     result := result + basetable[n + 1];
    
42.   end;
    
43.   if addnum = 1 then result := result + '==';
    
44.   if addnum = 2 then result[length(result)] := '=';
    
45. end;
    
46. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    
47. 
    
48. 
    
49. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    
50. //BASE64编码函数
    
51. function StrtoBase64(const test: string): string;
    
52. var s, s1: string;
    
53.   i, p, len, n, Addnum: DWORD;
    
54. begin
    
55.   result := '';
    
56.   S := '';
    
57.   addnum := 0;
    
58.   for i := 1 to length(test) do
    
59.     S := S + IntToHex(Ord(test[i]), 2);
    
60.   case (length(s) mod 3) of
    
61.     0: addnum := 0;
    
62.     1: begin
    
63.         s := s + '00';
    
64.         addnum := 2;
    
65.       end;
    
66.     2: begin
    
67.         s := s + '0';
    
68.         addnum := 1;
    
69.       end;
    
70.   end;
    
71.   len := length(s) div 3;
    
72.   for i := 1 to len do
    
73.   begin
    
74.     s1 := midstr(S, i * 3 - 2, 3);
    
75.     p := strtoint('$' + s1);
    
76.     n := p div 64;
    
77.     result := result + basetable[n + 1];
    
78.     n := p mod 64;
    
79.     result := result + basetable[n + 1];
    
80.   end;
    
81.   if addnum = 1 then result := result + '==';
    
82.   if addnum = 2 then result[length(result)] := '=';
    
83. end;
    
84. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    
85. 
    
86. 
    
87. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    
88. //BASE64解码函数
    
89. function Base64toStr(const test: string): string;
    
90. var s, s1, m: string;
    
91.   i, len, t: DWORD;
    
92. begin
    
93.   Result := '';
    
94.   if length(test) = 0 then exit;
    
95.   s := test;
    
96.   for i := 0 to 1 do
    
97.     if s[length(s)] = '=' then setlength(s, length(s) - 1);
    
98.   len := length(s) div 2;
    
99.   for i := 1 to len do
    
100.   begin
     
101.     s1 := midstr(s, i * 2 - 1, 2);
     
102.     t := (Pos(s1[1], BaseTable) - 1) * 64 + (Pos(s1[2], BaseTable) - 1);
     
103.     m := m + inttohex(t, 3)
     
104.   end;
     
105.   if length(s) mod 2 = 1 then
     
106.   begin
     
107.     t := (Pos(s[length(s)], BaseTable) - 1) * 64;
     
108.     m := m + inttohex(t, 3);
     
109.     setlength(m, length(m) - 2);
     
110.   end;
     
111.   len := length(m) div 2;
     
112.   for i := 1 to len do
     
113.   begin
     
114.     s := midstr(m, i * 2 - 1, 2);
     
115.     result := result + chr(strtoint('$' + s));
     
116.   end;
     
117. end;
     
118. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
     

复制代码

[ 本帖最后由 lxl1638 于 2008-2-13 01:17 PM 编辑 ]

armymangl

老九你太牛X了，顶死你

lxl1638

原帖由 nn2nn 于 2008-2-13 01:21 PM 发表
Base64ToBin我要的是这个。

是BinToBase64

lxl1638

原帖由 nn2nn 于 2008-2-13 01:21 PM 发表
Base64ToBin我要的是这个。

因为SETICO有查看结果的功能，看看是否写入正确。
所以要解码。

可以用本人做的一个小工具LookWimIcon看看写入的图标。
附上LookWimIcon源码(VC++)，去掉RAR改扩展名，因为是WIM
解码函数本人没有写出Delphi的，只写出VC++的(在LookWimIcon.CPP内)，你可以看明白。

[ 本帖最后由 lxl1638 于 2008-2-13 01:34 PM 编辑 ]

lxl1638

啊，function Base64toStr(const test: string): string稍改一下就可以是Base64toBin了。

secowu

V1.08.02.12版更新：
1、制作了一个用于WIM个性化图标的DLL，内含一个默认图标共21K；
2、增加了设置WIM个性化图标的功能，本人这个DLL是解释XML内BASE64编码的图标；
3、这仅仅是个试验，还有不少要完善的地方，如WimTool还需完成真彩色图标的提取功能；
4、内附有两个带有图标的WIM、两个小工具及DLL的使用方法；

++++++++++++似乎并不十分期待的功能呆

tlze

下载了,谢谢!这里的高手真多,我们用户有福了.

jl580650

什么时候更新成6001就好了

pz

原帖由 stwcb2007 于 2008-2-13 12:46 PM 发表
反馈一点问题

使用最新版WIMTOOL
点击这个浏览会被无故踢出来
就在直接退出程序
并不是每次都会
偶尔会偶尔不会

使用的是深度XP5.9

发个图更清楚一点

我试用最新版时也发生这种情况，有时在[新制和追加]中点击[浏览]也会被踢出来。希望老九老师有空再看看问题出在哪？

黄雀在后

。。。。看不懂~~~要学的东西太多了我。。哎

frfgddddee

又有更新了，下载测试下先

ad2050

哇哈哈哈哈哈哈哈，更新了