精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Re: 如何在编程时取得DELPHI程序给的版本号

主题:Re: 如何在编程时取得DELPHI程序给的版本号
发信人: 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]

[关闭][返回]