怎样取出软件版权

碧海蓝天0

怎样取出自身界面风格配置。。求助大神
就是exe这段
<?xml version="1.0" encoding="UTF-8" standalone="yes"?><assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"><assemblyIdentity name="E.App" processorArchitecture="x86" version="5.2.0.0" type="win32"/><dependency><dependentAssembly><assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /></dependentAssembly></dependency></assembly>

明靓

获取版权示例.e (9.07 KB, 下载次数: 22)

2021-11-22 20:08 上传

点击文件名下载附件

小书

没明白。

夜华

精易模块里面有 取应用信息 你看一下是否有你想要的

BeaFeng

  

子程序名	返回值类型	公开	备 注
获取版本信息	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
主版本号	整数型
次版本号	整数型
内部版本号	整数型
修订版本号	整数型
产主版本号	整数型
产次版本号	整数型
产内部版本号	整数型
产修订版本号	整数型

变量名	类 型	静态	数组	备 注
dwHandle	整数型
dwLen	整数型
lpData	整数型
成功	逻辑型
FixedFileInfo	INFO
pFixedFileInfo	整数型

成功 ＝ 假
dwLen ＝ GetFileVersionInfoSize (文件路径, dwHandle)
如果真 (dwLen ＝ 0)
返回 (假)
lpData ＝ HeapAlloc (GetProcessHeap (), 0, dwLen)
如果真 (lpData ≠ 0)
如果真 (GetFileVersionInfo (文件路径, dwHandle, dwLen, lpData) ≠ 0)
如果真 (VerQueryValue (lpData, “\”, pFixedFileInfo, 0) ≠ 0)
交换文件信息 (FixedFileInfo, pFixedFileInfo)
主版本号 ＝ 无符号型右移 (FixedFileInfo.dwFileVersionMS, 16)
次版本号 ＝ 位与 (FixedFileInfo.dwFileVersionMS, 65535)
内部版本号 ＝ 无符号型右移 (FixedFileInfo.dwFileVersionLS, 16)
修订版本号 ＝ 位与 (FixedFileInfo.dwFileVersionLS, 65535)
产主版本号 ＝ 无符号型右移 (FixedFileInfo.dwProductVersionMS, 16)
产次版本号 ＝ 位与 (FixedFileInfo.dwProductVersionMS, 65535)
产内部版本号 ＝ 无符号型右移 (FixedFileInfo.dwProductVersionLS, 16)
产修订版本号 ＝ 位与 (FixedFileInfo.dwProductVersionLS, 65535)
交换文件信息 (FixedFileInfo, pFixedFileInfo)
成功 ＝ 真

HeapFree (GetProcessHeap (), 0, lpData)
返回 (成功)

.版本 2<br /> <br /> .子程序 获取版本信息, 逻辑型<br /> .参数 文件路径, 文本型<br /> .参数 主版本号, 整数型, 参考 可空<br /> .参数 次版本号, 整数型, 参考 可空<br /> .参数 内部版本号, 整数型, 参考 可空<br /> .参数 修订版本号, 整数型, 参考 可空<br /> .参数 产主版本号, 整数型, 参考 可空<br /> .参数 产次版本号, 整数型, 参考 可空<br /> .参数 产内部版本号, 整数型, 参考 可空<br /> .参数 产修订版本号, 整数型, 参考 可空<br /> .局部变量 dwHandle, 整数型<br /> .局部变量 dwLen, 整数型<br /> .局部变量 lpData, 整数型<br /> .局部变量 成功, 逻辑型<br /> .局部变量 FixedFileInfo, INFO<br /> .局部变量 pFixedFileInfo, 整数型<br /> <br /> 成功 ＝ 假<br /> dwLen ＝ GetFileVersionInfoSize (文件路径, dwHandle)<br /> .如果真 (dwLen ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> lpData ＝ HeapAlloc (GetProcessHeap (), 0, dwLen)<br /> .如果真 (lpData ≠ 0)<br />     .如果真 (GetFileVersionInfo (文件路径, dwHandle, dwLen, lpData) ≠ 0)<br />         .如果真 (VerQueryValue (lpData, “\”, pFixedFileInfo, 0) ≠ 0)<br />             交换文件信息 (FixedFileInfo, pFixedFileInfo)<br /> <br />             主版本号 ＝ 无符号型右移 (FixedFileInfo.dwFileVersionMS, 16)<br />             次版本号 ＝ 位与 (FixedFileInfo.dwFileVersionMS, 65535)<br />             内部版本号 ＝ 无符号型右移 (FixedFileInfo.dwFileVersionLS, 16)<br />             修订版本号 ＝ 位与 (FixedFileInfo.dwFileVersionLS, 65535)<br /> <br />             产主版本号 ＝ 无符号型右移 (FixedFileInfo.dwProductVersionMS, 16)<br />             产次版本号 ＝ 位与 (FixedFileInfo.dwProductVersionMS, 65535)<br />             产内部版本号 ＝ 无符号型右移 (FixedFileInfo.dwProductVersionLS, 16)<br />             产修订版本号 ＝ 位与 (FixedFileInfo.dwProductVersionLS, 65535)<br /> <br />             交换文件信息 (FixedFileInfo, pFixedFileInfo)<br />             成功 ＝ 真<br />         .如果真结束<br /> <br />     .如果真结束<br />     HeapFree (GetProcessHeap (), 0, lpData)<br /> .如果真结束<br /> 返回 (成功)

明靓

   利用 应用接口支持库 中的命令   

  

变量名	类 型	静态	数组	备 注
版本信息	文件版本信息

如果真 (取文件版本信息 (文件名, 版本信息))
编辑框1.内容 ＝ 版本信息.语言 ＋ #换行符 ＋ 版本信息.备注 ＋ #换行符 ＋ 版本信息.文件版本 ＋ #换行符 ＋ 版本信息.文件描述 ＋ #换行符 ＋ 版本信息.内部名称 ＋ #换行符 ＋ 版本信息.公司名称 ＋ #换行符 ＋ 版本信息.合法版权 ＋ #换行符 ＋ 版本信息.合法商标 ＋ #换行符 ＋ 版本信息.源文件名 ＋ #换行符 ＋ 版本信息.产品名称 ＋ #换行符 ＋ 版本信息.产品版本

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .局部变量 版本信息, 文件版本信息<br /> <br /> .如果真 (取文件版本信息 (文件名, 版本信息))<br /> <br />     编辑框1.内容 ＝ 版本信息.语言 ＋ #换行符 ＋ 版本信息.备注 ＋ #换行符 ＋ 版本信息.文件版本 ＋ #换行符 ＋ 版本信息.文件描述 ＋ #换行符 ＋ 版本信息.内部名称 ＋ #换行符 ＋ 版本信息.公司名称 ＋ #换行符 ＋ 版本信息.合法版权 ＋ #换行符 ＋ 版本信息.合法商标 ＋ #换行符 ＋ 版本信息.源文件名 ＋ #换行符 ＋ 版本信息.产品名称 ＋ #换行符 ＋ 版本信息.产品版本<br /> .如果真结束

           网上收集来的程序            

  

子程序名	返回值类型	公开	备 注
GetFileVerInfo_	逻辑型		取程序版权信息
参数名	类 型	参考	可空	数组	备 注
FullFileName	文本型				文件路径
FileVersion	文本型				文件版本
InternalName	文本型				内部名称
CompanyName	文本型				公司名称
LegalCopyright	文本型				版权信息
FileDescription	文本型				程序说明
language	文本型				程序语言

变量名	类 型	静态	数组	备 注
rc	长整数型
sBuffer	字节集
lBufferLen	整数型
lVerPointer	整数型
bytebuffer	字节型		261
Lang_Charset_String	文本型
HexNumber	整数型
Buffer	文本型
i	整数型
strtemp	文本型
strFileVer	文本型		6
VerInfo	文本型

lBufferLen = GetFileVersionInfoSize (FullFileName, 0)
如果真 (lBufferLen < 1)
返回 (假)
lBufferLen = lBufferLen + 1
sBuffer = 取空白字节集 (lBufferLen)
rc = GetFileVersionInfo (FullFileName, 0, lBufferLen, sBuffer)
如果真 (rc = 0)
返回 (假)
rc = VerQueryValue (sBuffer, “\VarFileInfo\Translation”, lVerPointer, lBufferLen)
如果真 (rc = 0)
返回 (假)
strFileVer [1] = “FileVersion”
strFileVer [2] = “InternalName”
strFileVer [3] = “CompanyName”
strFileVer [4] = “LegalCopyright”
strFileVer [5] = “FileDescription”
MoveMemory (bytebuffer, lVerPointer, lBufferLen)
HexNumber = bytebuffer [3] + bytebuffer [4] × 256 + bytebuffer [1] × 65536 + bytebuffer [2] × 16777216
rc = 到长整数 (bytebuffer [1] + bytebuffer [2] × 256)
Lang_Charset_String = 取十六进制文本 (HexNumber)
判断循环首 (取文本长度 (Lang_Charset_String) < 8)
Lang_Charset_String = “0” + Lang_Charset_String
判断循环尾 ()
strtemp = 取空白文本 (261)
rc = VerLanguageName (rc, strtemp, 255)
strFileVer [6] = 删首尾空 (strtemp)
strtemp = “”
变量循环首 (1, 5, 1, i)
Buffer = 取空白文本 (261)
strtemp = “\StringFileInfo\” + Lang_Charset_String + “\” + strFileVer [i]
rc = VerQueryValue (sBuffer, strtemp, lVerPointer, lBufferLen)
如果 (rc ≠ 0)
lstrcpy (Buffer, lVerPointer)
Buffer = “”
strFileVer [i] = 删首尾空 (Buffer)
变量循环尾 ()
如果真 (取数组成员数 (strFileVer) ≥ 6)
FileVersion = strFileVer [1]
InternalName = strFileVer [2]
CompanyName = strFileVer [3]
LegalCopyright = strFileVer [4]
FileDescription = strFileVer [5]
language = strFileVer [6]
返回 (真)
返回 (假)

.子程序 GetFileVerInfo_, 逻辑型, ,  取程序版权信息<br /> .参数 FullFileName, 文本型, , 文件路径<br /> .参数 FileVersion, 文本型, 参考 , 文件版本<br /> .参数 InternalName, 文本型, 参考 , 内部名称<br /> .参数 CompanyName, 文本型, 参考 , 公司名称<br /> .参数 LegalCopyright, 文本型, 参考 , 版权信息<br /> .参数 FileDescription, 文本型, 参考 , 程序说明<br /> .参数 language, 文本型, 参考 , 程序语言<br /> .局部变量 rc, 长整数型<br /> .局部变量 sBuffer, 字节集<br /> .局部变量 lBufferLen, 整数型<br /> .局部变量 lVerPointer, 整数型<br /> .局部变量 bytebuffer, 字节型, , "261"<br /> .局部变量 Lang_Charset_String, 文本型<br /> .局部变量 HexNumber, 整数型<br /> .局部变量 Buffer, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 strtemp, 文本型<br /> .局部变量 strFileVer, 文本型, , "6"<br /> .局部变量 VerInfo, 文本型<br /> lBufferLen = GetFileVersionInfoSize (FullFileName, 0)<br /> .如果真 (lBufferLen < 1)<br /> 返回 (假)<br /> .如果真结束<br /> lBufferLen = lBufferLen + 1<br /> sBuffer = 取空白字节集 (lBufferLen)<br /> rc = GetFileVersionInfo (FullFileName, 0, lBufferLen, sBuffer)<br /> .如果真 (rc = 0)<br /> 返回 (假)<br /> .如果真结束<br /> rc = VerQueryValue (sBuffer, “\VarFileInfo\Translation”, lVerPointer, lBufferLen)<br /> .如果真 (rc = 0)<br /> 返回 (假)<br /> .如果真结束<br /> strFileVer [1] = “FileVersion”<br /> strFileVer [2] = “InternalName”<br /> strFileVer [3] = “CompanyName”<br /> strFileVer [4] = “LegalCopyright”<br /> strFileVer [5] = “FileDescription”<br /> MoveMemory (bytebuffer, lVerPointer, lBufferLen)<br /> HexNumber = bytebuffer [3] + bytebuffer [4] × 256 + bytebuffer [1] × 65536 + bytebuffer [2] × 16777216<br /> rc = 到长整数 (bytebuffer [1] + bytebuffer [2] × 256)<br /> Lang_Charset_String = 取十六进制文本 (HexNumber)<br /> .判断循环首 (取文本长度 (Lang_Charset_String) < 8)<br /> Lang_Charset_String = “0” + Lang_Charset_String<br /> .判断循环尾 ()<br /> strtemp = 取空白文本 (261)<br /> rc = VerLanguageName (rc, strtemp, 255)<br /> strFileVer [6] = 删首尾空 (strtemp)<br /> strtemp = “”<br /> .变量循环首 (1, 5, 1, i)<br /> Buffer = 取空白文本 (261)<br /> strtemp = “\StringFileInfo\” + Lang_Charset_String + “\” + strFileVer <i><br /> rc = VerQueryValue (sBuffer, strtemp, lVerPointer, lBufferLen)<br /> .如果 (rc ≠ 0)<br /> lstrcpy (Buffer, lVerPointer)<br /> .否则<br /> Buffer = “”<br /> .如果结束<br /> strFileVer <i> = 删首尾空 (Buffer)<br /> .变量循环尾 ()<br /> .如果真 (取数组成员数 (strFileVer) ≥ 6)<br /> FileVersion = strFileVer [1]<br /> InternalName = strFileVer [2]<br /> CompanyName = strFileVer [3]<br /> LegalCopyright = strFileVer [4]<br /> FileDescription = strFileVer [5]<br /> language = strFileVer [6]<br /> 返回 (真)<br /> .如果真结束<br /> 返回 (假)

补充内容 (2021-11-22 20:09):
https://bbs.125.la/forum.php?mod ... 69&pid=22389441  看9楼源码

Dhs过客

资源树之前一直玩

碧海蓝天0

明靓软件 发表于 2021-11-22 01:40
利用 应用接口支持库 中的命令   

[e=4].版本 2

大佬能不能上传一下源码。谢谢

蛀牙

test.e (2.58 KB, 下载次数: 4)

2021-11-22 13:26 上传

点击文件名下载附件