版本信息生成工具

chishingchan

应坛友所求：版本信息生成工具 - 第4页 - 『原创发布区』 - 吾爱破解 - LCG - LSG |安卓破解|病毒分析|[url]www.52pojie.cn[/url]

我也将本人之前写的可执行文件版本信息发布


AutoIt3 源码：

[HTML] 纯文本查看 复制代码

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Local $Width = 480
Local $Height = 100
Local $x, $y

GUICreate("可执行文件版本信息", $Width, $Height, @DesktopWidth - $Width - 8, 4, -1, BitOR(16+8, 256+8))

Local $InputBrowse = GUICtrlCreateButton("浏览(&B)", 8, 10, 52, 20)
$InputFile = GUICtrlCreateInput("", 70, 12, 400, 16)
GUICtrlSetState(-1, 8)
GUICtrlCreateLabel("合法版权", 10, 34)
$LegalCopyright = GUICtrlCreateInput("", 70, 32, 400, 16)
GUICtrlCreateLabel("公司名称", 10, 54)
$CompanyName = GUICtrlCreateInput("", 70, 52, 400, 16)
GUICtrlCreateLabel("文件版本", 10, 74)
$FileVersion = GUICtrlCreateInput("", 70, 72, 400, 16)

GUISetState(@SW_SHOW)

While 1
	$x = GUICtrlRead($InputFile)
	If $y <> $x Then
		If FileExists(GUICtrlRead($InputFile)) Then
			GUICtrlSetData($LegalCopyright, FileGetVersion(GUICtrlRead($InputFile), "LegalCopyright"))
			GUICtrlSetData($CompanyName, FileGetVersion(GUICtrlRead($InputFile), "CompanyName"))
			GUICtrlSetData($FileVersion, FileGetVersion(GUICtrlRead($InputFile)))
			Local $IS = "AppCopyright=" & GUICtrlRead($LegalCopyright) & @CRLF & "AppPublisher=" & GUICtrlRead($CompanyName) & @CRLF & "VersionInfoVersion=" & GUICtrlRead($FileVersion)
			ClipPut($IS)
		EndIf
	EndIf
	$y = $x
	Switch GUIGetMsg()
		Case -3
			ExitLoop
		Case $InputBrowse
			GUICtrlSetData($InputFile, FileOpenDialog("请选择一个可执行文件。", @WindowsDir & "", "可执行文件 (*.exe)", 1))
	EndSwitch
WEnd

使用方法：
1、按浏览选择文件
2、将可执行文件拖到第一栏

使用后，信息会被复制到剪贴板，信息适用于 Inno Setup 脚本。

注意：附件文件共两个，32位和64位，如发现某个获取的不正确请更改。
获取文件版本信息.7z (840.89 KB, 下载次数: 71)

2023-4-5 16:07 上传

点击文件名下载附件

LYF2001

来了，感谢分享啊，虽然我用不到

yuangencai

谢谢分享

t711s

有用，谢谢分享！

FXZ0203

感谢分享

521wuyanfei

感谢分享

Kanye

looks good to me

yubao0205

这个好，以后就方便了

Reset1

可以修改APK文件版本信息吗

heaty

感谢分享。