[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

Zap

527104427 发表于 2025-11-6 12:29
你没发现你把一个括号改丢了吗？

丢不丢都一样了 因为错不在这 前面都截胡了
快去请掌管代码的神@mdyblog

红毛樱木

Zap 发表于 2025-11-6 12:13
你咋不一次改成  我这今天才研究出来，大前天还不会

你第一次给的C++源码，我都帮你翻译完了。而且你代码里的逻辑不对，我也帮你改了。  还要咋样呀。。。我都不知道你代码的原理

Zap

红毛樱木 发表于 2025-11-6 12:45
你第一次给的C++源码，我都帮你翻译完了。而且你代码里的逻辑不对，我也帮你改了。  还要咋样呀。。。我 ...

PECMD太难了

红毛樱木

Zap 发表于 2025-11-6 18:02
PECMD太难了

想翻译成PECMD，自己研究的代码要用C语言，不能用C++，不然不好翻译的。 PECMD我感觉是类似C风格的

5315929

感谢分享。

Zap

红毛樱木 发表于 2025-11-6 19:59
想翻译成PECMD，自己研究的代码要用C语言，不能用C++，不然不好翻译的。 PECMD我感觉是类似C风格的

呼叫古希腊掌管代码的神

1. //返回程序第一个图标名
   
2. #include <windows.h>
   
3. #include <shlwapi.h>
   
4. #include <wchar.h>
   
5. #include <stdio.h>
   
6. #include <stdlib.h>
   
7. #include <io.h>      // 用于_setmode
   
8. #include <fcntl.h>   // 用于_O_U16TEXT
   
9. 
   
10. #pragma comment(lib, "shlwapi.lib")
    
11. 
    
12. // 全局资源名称数组及计数
    
13. wchar_t** g_resourceNames = NULL;
    
14. int g_resourceCount = 0;
    
15. 
    
16. // 资源枚举回调函数：正确处理整数ID和字符串名称
    
17. BOOL CALLBACK EnumResNameProc(HMODULE hModule, LPCWSTR lpszType, LPWSTR lpszName, LONG_PTR lParam) {
    
18.     wchar_t* resName = NULL;
    
19.     if (IS_INTRESOURCE(lpszName)) {
    
20.         // 处理整数ID（资源ID是16位无符号整数）
    
21.         WORD id = (WORD)(UINT_PTR)lpszName;  // 正确转换资源ID
    
22.         resName = (wchar_t*)malloc(64 * sizeof(wchar_t));  // 扩大缓冲区避免溢出
    
23.         if (!resName) return FALSE;  // 检查内存分配失败
    
24.         // 格式化整数ID为 "#数字"（例如#1000）
    
25.         if (swprintf_s(resName, 64, L"#%u", id) < 0) {  // 使用%u匹配WORD（无符号）
    
26.             free(resName);
    
27.             return FALSE;
    
28.         }
    
29.     } else {
    
30.         // 处理字符串名称（例如ICO_MYCOMPUTER）
    
31.         size_t nameLen = wcslen(lpszName);
    
32.         resName = (wchar_t*)malloc((nameLen + 1) * sizeof(wchar_t));
    
33.         if (!resName) return FALSE;  // 检查内存分配失败
    
34.         wcscpy_s(resName, nameLen + 1, lpszName);
    
35.     }
    
36. 
    
37.     // 扩展资源名称数组
    
38.     wchar_t** newArray = (wchar_t**)realloc(g_resourceNames, (g_resourceCount + 1) * sizeof(wchar_t*));
    
39.     if (!newArray) {
    
40.         free(resName);
    
41.         return FALSE;
    
42.     }
    
43.     g_resourceNames = newArray;
    
44.     g_resourceNames[g_resourceCount++] = resName;
    
45.     return TRUE;
    
46. }
    
47. 
    
48. // 释放资源名称数组内存
    
49. void FreeResourceNames() {
    
50.     for (int i = 0; i < g_resourceCount; i++) {
    
51.         if (g_resourceNames[i]) free(g_resourceNames[i]);
    
52.     }
    
53.     free(g_resourceNames);
    
54.     g_resourceNames = NULL;
    
55.     g_resourceCount = 0;
    
56. }
    
57. 
    
58. // 显示帮助信息
    
59. void ShowHelp(const wchar_t* programName) {
    
60.     wprintf(L"用法: %ls <目标程序路径>\n", programName);
    
61.     wprintf(L"示例: %ls C:\\Windows\\explorer.exe\n", programName);
    
62. }
    
63. 
    
64. int wmain(int argc, wchar_t* argv[]) {
    
65.     // 设置控制台宽字符模式（确保中文和宽字符正常显示）
    
66.     _setmode(_fileno(stdout), _O_U16TEXT);
    
67.     _setmode(_fileno(stderr), _O_U16TEXT);
    
68. 
    
69.     // 参数检查
    
70.     if (argc != 2) {
    
71.         ShowHelp(argv[0]);
    
72.         return -1;
    
73.     }
    
74. 
    
75.     wchar_t targetPath[MAX_PATH];
    
76.     wcscpy_s(targetPath, MAX_PATH, argv[1]);
    
77. 
    
78.     // 检查目标文件是否存在
    
79.     if (!PathFileExistsW(targetPath)) {
    
80.         fwprintf(stderr, L"错误: 文件不存在 - %ls\n", argv[1]);
    
81.         return -2;
    
82.     }
    
83. 
    
84.     // 加载目标程序作为资源文件（仅读取资源，不执行代码）
    
85.     HMODULE hModule = LoadLibraryExW(targetPath, NULL, LOAD_LIBRARY_AS_DATAFILE | LOAD_LIBRARY_AS_IMAGE_RESOURCE);
    
86.     if (!hModule) {
    
87.         fwprintf(stderr, L"错误: 无法加载文件资源 (错误码: %d)\n", GetLastError());
    
88.         return -3;
    
89.     }
    
90. 
    
91.     // 枚举所有图标组资源（RT_GROUP_ICON是图标组的资源类型）
    
92.     FreeResourceNames();
    
93.     if (!EnumResourceNamesW(hModule, RT_GROUP_ICON, EnumResNameProc, 0)) {
    
94.         fwprintf(stderr, L"错误: 枚举图标资源失败 (错误码: %d)\n", GetLastError());
    
95.         FreeLibrary(hModule);
    
96.         FreeResourceNames();
    
97.         return -3;
    
98.     }
    
99. 
    
100.     // 输出第一个图标组名称（修复格式符错误）
     
101.     if (g_resourceCount > 0 && g_resourceNames[0]) {
     
102.         // 修复：用%ls打印宽字符字符串（wchar_t*），而非%s
     
103.         wprintf(L"%ls\n", g_resourceNames[0]);
     
104.     } else {
     
105.         fwprintf(stderr, L"错误: 未找到图标组资源\n");
     
106.         FreeLibrary(hModule);
     
107.         FreeResourceNames();
     
108.         return -3;
     
109.     }
     
110. 
     
111.     // 清理资源
     
112.     FreeLibrary(hModule);
     
113.     FreeResourceNames();
     
114.     return 0;
     
115. }

复制代码

红毛樱木

Zap 发表于 2025-11-7 13:03
呼叫古希腊掌管代码的神

牛逼，你要双休吗

红毛樱木

Zap 发表于 2025-11-7 13:03
呼叫古希腊掌管代码的神

PECMD有回调函数支持， 在 ENVI 命令说明书的最后面：
※绑定回调函数： ENVI^ WndProc[1|2|3][C][,指针变量]  //C为C调用。
---------------------------
举例说明。
你的代码中有 EnumResourceNamesW 这个API调用

WINBASEAPI
BOOL
WINAPI
EnumResourceNamesW(
    _In_opt_ HMODULE hModule,
    _In_ LPCWSTR lpType,
    _In_ ENUMRESNAMEPROCW lpEnumFunc,
    _In_ LONG_PTR lParam
    );

第三个是回调函数，就是你代码中的 EnumResNameProc
翻译到PECMD里是这样用：
ENVI^ WndProc1,&WndProc1Addr  //这个%&WndProc1Addr% 就是回调函数的地址了。
然后，CALL$ 调用 EnumResourceNamesW 这个API，第三个参数就可以直接用 #%&WndProc1Addr% 了。
最后，你写个 _SUB 函数，比如：
_SUB OnWndProc1
  // 这里写你的代码等。 获取到的信息就是 %~1 %~2..... 这些了。
_END
------------------------
ENVI^ WndProc1  这里的数字 1 与 OnWndProc1 里的数字 1 是对应的。 PECMD最多支持3个回调，固定格式。(另外注意：绑定到当前执行栈)
------------------------
示例   目录中的  Test7Zip.wcs  有详细的回调函数代码，可以参考。

蓝精灵33

学习学习

蓝精灵33

学习学习

蓝精灵33

学习学习

蓝精灵33

学习学习

蓝精灵33

学习学习

jszw666

感谢楼主分享，感谢！！！！

尽善尽美

用PECMD怎么调用CMD把INI文件打包成EXE，具体用什么参数命令，哪个版本才有这个功能。哪位大婶指点指点。

dhwc

写了个软件安装管理器，根据列表文件list.ini文件里的内容自动创建复选框，软件数量不固定，预设的swin太大滚动条下面会空很多，swin太小会放不下，代码如下：

1. _SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#316,15,,-top -disminb
   
2.     SWIN SWIN1:Page11:-SWINMAIN,L10T33W273H240,,0x140
   
3.     ENVI @SWINMAIN:SWIN1.ID=?&Swin1_Wid   //画框ID
   
4.     ENVI @SWINMAIN.ID=?&SWINMAIN_Wid    //与Page11窗口ID相同%&Page1_WID%
   
5.     LABE TitleLabel,L10T10W200H20,请选择要安装的软件：
   
6.     ITEM OKButton,L120T280W60H30,安装,CALL OnOK
   
7. _END
   
8. 
   
9. _SUB Page11,W600H240,,,,:0xFFFFFF
   
10.     ENVI &YPos=10
    
11.     ENVI &Index=0
    
12.     ENVI &inList=0
    
13.     ENVI AllList=
    
14.     SET$ NL=0D 0A
    
15. 
    
16.     READ list.ini,*,&&AllContent
    
17. 
    
18.     FORX *NL &AllContent,&&line,
    
19.     {
    
20.         mstr * &line1=1,1,&line
    
21.         find $%&line1%=[,
    
22.         {
    
23.             find $%&line%=[softlist], ENVI &inList=1!ENVI &inList=0
    
24.         }!
    
25.         {
    
26.             IFEX $%&inList%=1,
    
27.             {
    
28.                 FIND $%&line%=, exit -
    
29. 
    
30.                 // 解析软件名称、路径、默认是否选中
    
31.                 MSTR * -delims:| SoftName,SoftPath,SoftStatus=<1><2><3>&line
    
32. 
    
33.                 CHEK Checkbox_%&Index%,L40T%&YPos%W250H20,%SoftName%
    
34.                 IFEX $%SoftStatus%=0,ENVI @Checkbox_%&Index%.Check=1
    
35.                 IFEX $%SoftStatus%=2,team ENVI @Checkbox_%&Index%.Check=1|ENVI @Checkbox_%&Index%.Enable=0
    
36. 
    
37.                 ENVI &Checkbox_Name=Checkbox_%&Index%
    
38.                 ENVI &Checkbox_Name_Path=%SoftPath%
    
39.                 ENVI Checkbox_Name_Status=%SoftStatus%
    
40. 
    
41.                 CALC &YPos=%&YPos% + 25
    
42.                 CALC &Index=%&Index% + 1
    
43. 
    
44.                 ENVI AllList=%Checkbox_Name_Path%%NL%%AllList%
    
45.                 //mess %&AllList%
    
46.                 //mess %Checkbox_Name%:%&SoftName%:%&Checkbox_Name_Path%:%Checkbox_Name_Status%
    
47.             }
    
48.         }
    
49.     }
    
50. 
    
51.     ENVI TotalCount=%&Index%
    
52. 
    
53.     //MESS %TotalCount%
    
54.     IFEX #%TotalCount%>=9,TEAM  MESS %H%|CALC H=(%TotalCount%-9)*35+%H%| MESS %H%|ENVI @@POS=%&SWIN1_Wid%::::%H%
    
55. 
    
56. _END
    
57. 
    
58. _SUB OnOK
    
59. ENVI &AllList=%AllList%
    
60. ENVI &InstPath=
    
61. ENVI &Index=0
    
62. 
    
63.     LOOP #%&Index% <= %TotalCount%,
    
64.     {
    
65.         READ  -*,%&Index%,&InstPath,&AllList
    
66.         Find $%Checkbox_%&Index%.Check%=1,mess Checkbox_%&Index%选中\n%&InstPath%
    
67.         CALC &Index=%&Index% + 1
    
68.     }
    
69. _END
    
70. 
    
71. CALL @MainWindow

复制代码

代码运行后，swin不能实现滚动效果，参考官方实例搞不定，官方实例中主要起作用是这一句：ENVI @@POS=%&SWIN1_Wid%::::%H

但我看这样改变的是画布大小？

求教，谢谢

红毛樱木

dhwc 发表于 2025-12-6 19:44
写了个软件安装管理器，根据列表文件list.ini文件里的内容自动创建复选框，软件数量不固定，预设的swin太大 ...

swin有层级、滚动条可以通过代码滚动到指定位置。  这两个在 示例代码  文件夹里都有示例代码

dhwc

红毛樱木 发表于 2025-12-6 20:09
swin有层级、滚动条可以通过代码滚动到指定位置。  这两个在 示例代码  文件夹里都有示例代码

我看的示例代码，那个功能过于完善了我这个场景觉得不太需要，核心语句不就是ENVI @@POS=%&SWIN1_Wid%::::%H%嘛？为啥写了没用呢

dhwc

dhwc 发表于 2025-12-6 20:52
我看的示例代码，那个功能过于完善了我这个场景觉得不太需要，核心语句不就是ENVI @@POS=%&SWIN1_Wid%::: ...

这个问题搞定了，调整的时机不对，方法也不对，最后在主窗体中加了个time控件解决了，也不知道是不是邪门歪道。

现在有新的问题:

1、怎样实现主窗体透明，swim不透明？

2、主窗体添加了全选/全不选按钮，好像不能穿透到swim去操作复选框？

3、添加了全选/全不选按钮，程序运行后，安装按钮文字不可见，随便点下某个复选框才会显示出来？

红毛樱木

dhwc 发表于 2025-12-10 20:12
这个问题搞定了，调整的时机不对，方法也不对，最后在主窗体中加了个time控件解决了，也不知道是不是邪门 ...

上代码。瞎猜么。。。。

dhwc

1. //_SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#130,15,,-top -disminb
   
2. SET &SB_VERT=1
   
3. SET &SIF_RANGE=0x0001
   
4. 
   
5. ENVI &TotalCount=0
   
6. ENVI &AllList=
   
7. ENVI &Checkbox_All=0
   
8. 
   
9. _SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#316,15,,-top -disminb
   
10.     SWIN SWIN1:Page11:-SWINMAIN,L10T33W273H240,,0x140
    
11.     ENVI @SWINMAIN:SWIN1.ID=?&Swin1_Wid   //画框ID
    
12.     ENVI @SWINMAIN.ID=?&SWINMAIN_Wid    //与Page11窗口ID相同%&Page1_WID%
    
13. ENVI @SWINMAIN.bkcolor=#FFFFFF
    
14.     LABE -trans TitleLabel,L10T10W200H20,请选择要安装的软件：
    
15.     ITEM OKButton,L200T285W84H30,开始安装,CALL OnOK
    
16.     TIME Timer1,300,call SetSwin
    
17.     CHEK Checkbox_All,L11T290W250H20,全选/全不选,call CheckboxAllChanged,1
    
18. _END
    
19. 
    
20. 
    
21. _SUB Page11,W600H240,,,,:0xFFFFFF
    
22. //ENVI @this.bkcolor=0x000000
    
23.     ENVI &YPos=10
    
24.     ENVI &Index=0
    
25.     ENVI &inList=0
    
26.     SET$ NL=0D 0A
    
27. 
    
28.     READ list.ini,*,&&AllContent
    
29. 
    
30.     FORX *NL &AllContent,&&line,
    
31.     {
    
32.         mstr * &line1=1,1,&line
    
33.         find $%&line1%=[,
    
34.         {
    
35.             find $%&line%=[softlist], ENVI &inList=1!ENVI &inList=0
    
36.         }!
    
37.         {
    
38.             IFEX $%&inList%=1,
    
39.             {
    
40.                 FIND $%&line%=, exit -
    
41.                
    
42.                 // 解析软件名称、路径、默认是否选中
    
43.                 MSTR * -delims:| SoftName,SoftPath,SoftStatus=<1><2><3>&line
    
44.                  
    
45.                 CHEK Checkbox_%&Index%,L40T%&YPos%W180H20,%SoftName%
    
46.                 IFEX $%SoftStatus%=0,ENVI @Checkbox_%&Index%.Check=1
    
47.                 IFEX $%SoftStatus%=2,team ENVI @Checkbox_%&Index%.Check=1|ENVI @Checkbox_%&Index%.Enable=0
    
48.                
    
49.                 ENVI &Checkbox_Name=Checkbox_%&Index%
    
50.                 ENVI &Checkbox_Name_Path=%SoftPath%
    
51.                 ENVI Checkbox_Name_Status=%SoftStatus%
    
52. 
    
53.                 CALC &YPos=%&YPos% + 25
    
54.                 CALC &Index=%&Index% + 1
    
55.                
    
56.                 ENVI &AllList=%Checkbox_Name_Path%%NL%%&AllList%
    
57.             }
    
58. 
    
59.         }
    
60.     }
    
61.     ENVI &TotalCount=%&Index%
    
62. 
    
63.     //Find $%Checkbox_All.Check%=1,mess 全选!mess 全不选
    
64.    
    
65. _END
    
66. 
    
67. _SUB SetSwin *
    
68.     ENVI @Timer1.*del=
    
69.     CALC #Hv=%&TotalCount%*26
    
70.     ENVI @@POS=%&SWINMAIN_Wid%::::%Hv%
    
71.     @TEAM SET-int inf=%&SIF_RANGE%:4| SET-int inf=%Hv%:12
    
72.     CALL $--qd user32.dll,SetScrollInfo,#%SWIN1_Wid%,#%SB_VERT%,*&inf
    
73. _END
    
74. 
    
75. 
    
76. _SUB CheckboxAllChanged
    
77.     ENVI &i=0
    
78.     Find $ENVI @%&Swin1_Wid%:Checkbox_%&i%.Check=1,
    
79.     {
    
80.      MESS %Checkbox_All.Check%:::%&TotalCount%
    
81.         LOOP #%&i% < %&TotalCount%,
    
82.         {
    
83.              ENVI @Checkbox_%&i%.Check=1
    
84.              CALC &i=%&i% + 1
    
85.         }
    
86.     EXIT _Sub
    
87.     }
    
88.     Find $ENVI @%&Swin1_Wid%:Checkbox_%&i%.Check=0,
    
89.     {
    
90.         LOOP #%&i% < %&TotalCount%,
    
91.         {
    
92.              ENVI @Checkbox_%&i%.Check=0
    
93.              CALC &i=%&i% + 1
    
94.         }
    
95.      }
    
96. _END
    
97. 
    
98. _SUB OnOK
    
99. ENVI &InstPath=
    
100. ENVI &Index=0
     
101. 
     
102.     LOOP #%&Index% <= %&TotalCount%,
     
103.     {
     
104.         READ  -*,%&Index%,&InstPath,&AllList
     
105.         Find $%Checkbox_%&Index%.Check%=1,TEAM mess Checkbox_%&Index%选中\n%&InstPath%
     
106.         CALC &Index=%&Index% + 1
     
107.     }
     
108. 
     
109. _END
     
110. 
     
111. 
     
112. CALL @MainWindow

复制代码

红毛樱木

dhwc 发表于 2025-12-10 21:39

看下了“画布”的原理，是GDI+绘制的，不是单独的传统窗口空间类型，自动继承透明通道等信息。   这个貌似PECMD 弄不了，因为默认就继承了。     另外两个问题，代码里没重现 不知道。

dhwc

红毛樱木 发表于 2025-12-11 14:29
看下了“画布”的原理，是GDI+绘制的，不是单独的传统窗口空间类型，自动继承透明通道等信息。   这个貌 ...

全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：



看右下角按钮

489432757

dhwc 发表于 2025-12-11 15:02
全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：

全选太长了，搞短一点

dhwc

489432757 发表于 2025-12-11 15:12
全选太长了，搞短一点

靠，特妈的，在swin里随便复制的，还以为是显示问题，要刷新啥的呢，谢谢

红毛樱木

dhwc 发表于 2025-12-11 15:02
全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：

swin高度太高覆盖了吧

dhwc

红毛樱木 发表于 2025-12-11 17:07
swin高度太高覆盖了吧

解决了，是全选那个复选框太长覆盖了

skycafe

学习学习

bohos2008

pecmd.exe放到什么位置

dhwc

如果主窗体已经创建，怎样实时控制主窗体的透明度？     
CALL Main

_SUB Mainwindow,W300H360,窗口,,,15,,-top -disminb
ITEM OKButton,L200T285W84H30,调整透明度,CALL set
_END  

？？？

pecmd帮助里有ENVI @Mainwindow.trans=0x1，但是这个好像不能起作用，也不能指定具体的透明值