如何取得.exe文件“属性-版本”中的“产品名称”?

green_hong 2001-12-19 10:21:49
用哪个API函数?或者别的方法?
...全文
253 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
enmity 2001-12-19
  • 打赏
  • 举报
回复
谢谢楼上,我去看看
DeityFox 2001-12-19
  • 打赏
  • 举报
回复
TO: enmity(灵感之源) 

VB爱好者乐园的网址

http://www.d1vb.com/
enmity 2001-12-19
  • 打赏
  • 举报
回复
楼上,VB爱好者乐园的网址是什么?

到:

http://caotang.myetang.com/temp/appinfo.zip

下载一个给你满意的例子

顺便提一下:现在是吃饭时候,大部分网友都吃饭去啦,人当然少了!
green_hong 2001-12-19
  • 打赏
  • 举报
回复
这里确实不如“VB爱好者乐园”,象这样的问题,5分钟内就有人响应。
uguess 2001-12-19
  • 打赏
  • 举报
回复
Private Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long
Private Declare Sub MoveMemory Lib "Kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal Length As Long)
Private Declare Function lstrcpy Lib "Kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Public Declare Function VerLanguageName Lib "Kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long

就用这些函数。
griefforyou 2001-12-19
  • 打赏
  • 举报
回复
看看 VB中菜单 工程->属性->生成选项卡

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧