|
本帖最后由 urenai 于 2023-12-22 22:54 编辑
有什么好办法吗?
忘记贴代码了!!!
除了下述方式,还有别的办法吗?
仅讨论手段?
- <火山程序 类型 = "通常" 版本 = 1 />
- 方法 取当前模块句柄 <公开 静态 类型 = 变整数 返回值注释 = "返回模块句柄" @禁止流程检查 = 真 @视窗.外部头文件 = "psapi.h" @视窗.外部库 = "Psapi.lib">
- 参数 文件名 <类型 = 文本型 注释 = "返回文件名" @默认值 = 空对象>
- 参数 路径 <类型 = 文本型 注释 = "返回路径" @默认值 = 空对象>
- {
- @ static HMODULE hModule = 0;
- @ if (!GetModuleHandleExW(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS,(LPCWSTR)&hModule,(HMODULE *)&hModule)){return 0;}
- @ if (!hModule){return 0;}
- @ char szProcessName[1024]={},szModName[1024]={};
- @ if (GetModuleBaseNameW((HANDLE)-1,hModule,(LPWSTR)szProcessName,1024)){@<文件名>.SetText ((const TCHAR*)szProcessName);}
- @ if (GetModuleFileNameW(hModule,(LPWSTR)szModName,1024)){@<路径>.SetText ((const TCHAR*)szModName);}
- @ return (INT_P)hModule;
- }
复制代码
|
|