发信人: pazee@GZ()
整理人: teleme(2001-03-29 21:55:44), 站内信件
|
标 题: Re: 如何在编程时取得DELPHI程序给的版本号
发信站: 网易虚拟社区 (Mon Sep 25 12:41:14 2000), 站内信件
【 在 dk_j (dk) 的大作中提到: 】
: 如何在编程时取得DELPHI-PROJECT OPTION中的版本号
看我的代码！
需要包含 ShellAPI单元。
// string 文件名字。 比如: application.ExeName;
// ma,mi,r,b 分别对应 版本号的4个部分。
function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean
;
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO ;
i: LongWord;
begin
i:= GetFileVersionInfoSize(pchar(fn), i);
new(sver);
p:= pchar(sver);
GetMem(buf, i);
ZeroMemory(buf, i);
result:= false;
if GetFileVersionInfo(pchar(fn), 0, 4096, pointer(buf)) then
if VerQueryValue(buf, '\', pointer(sver), i) then begin
ma:= sVer^.dwFileVersionMS shr 16;
mi:= sver^.dwFileVersionMS and $0000ffff;
r:= sver^.dwFileVersionLS shr 16;
b:= sver^.dwFileVersionLS and $0000ffff;
result:= true;
end;
Dispose(p);
FreeMem(buf);
end;
欢迎切磋问题。
[email protected]
--
.------------------------------------------------.
| |
| 英特那雄乃尔就一定要实现! ... |
| /(. .)\ |
`---------------------------------ooO--(_)--Ooo--'
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.141.206.39]
|
|