[2026年01月23日教程更新]WimTool - v2.0.2026.0103 Wim文件的图形视窗处理...

chenall

原帖由 lxl1638 于 2008-2-12 01:30 PM 发表

可以做到，记得以前本人在论坛发过WIM文件结构的资料，看看微软是如何定义WIM文件(头)的，找到XMLINFO的位置，直接将其读取出来处理。

但本人硬盘找不到这些资料，论坛的也找不到。

从兼容性看还是通过 ...

在论坛这里.
WIM文件结构资料

玄天

系统为 Windows XP 媒体中心版 SP3

可能开始没有说清楚, Wimtool 如果双击带图标扩展的wim文件就会蓝屏(旧版也如此)
                    WinNT 则双击PE的公用设置模块会蓝屏

再者,此两工具并未要求只能在PE中使用吧?

lxl1638

SP3？或者这里有问题？
你将出现蓝屏的WIM解开到NTFS分区，再打包成WIM试试，或者你原来的WIM来源于FAT分区。

另外，你将WimTool.DLL和WimShExt.DLL放在什么位置？(如果不作任何设置，不能放在光区上，要放在NTFS分区中)。
系统的临时目录又在什么位置？不能用RAMDISK作临时文作夹。

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

lxl1638

下载了2000多份，其他人也将测试结果发上来，是否出现蓝屏或者可以正常使用或者有何建议，都说明一下。

玄天

回ls,WIM文件是随Wimtool附带的文件,另外我没有fat分区,只有ntfs格式
正常的系统,没啥内存盘滴
将WimTool.DLL和WimShExt.DLL都放在系统的system32目录,mountpath在I盘(NTFS分区/160G)
当然,一蓝屏就啥也不知了,因为自己不会开发程序,所以忘了记所谓的蓝屏代码(对我没用哈)
如果要解的话,大概可能也就只能用imagex试试咯

玄天

再有 Wimtool V1.08.01.06 我已整合到PE内核,没有任何问题,挺爽
新的版本没有在PE中测试过

huangwen

用新版，没有出现蓝屏（XPSP2）

玄天

刚才有测试了下,用 Wimtool 关联, 双击 LookWimIcon.WIM 和 WinCMD.WIM 都会蓝屏(默认设置,新/旧版本都会蓝屏)

用 WimNT 关联,则很正常

火焙鱼

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

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 编辑 ]