精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:如何得到程序的版本号码

主题:Re:如何得到程序的版本号码
发信人: asap()
整理人: teleme(2003-03-19 10:30:30), 站内信件
【 在 kinlon99 的大作中提到:】
:TKS
:......
 
//GetFileVersion, using win32 API to get file version number, including: Major, minor, Release & build number

function GetFileVersion(FileName: string; var 
 Major, Minor, Release, Build: Word): Boolean;
var
 Size, Size2: DWord;
 Pt, Pt2: Pointer;
begin
 Result:= False;
   (*** Get version information size in exe ***)
 Size:= 
    GetFileVersionInfoSize(PChar(FileName), 
      Size2);
    (*** Make sure that version information is  include in exe 
      file ***)
 if Size > 0 then
 begin
   GetMem(Pt, Size);
   GetFileVersionInfo(PChar(FileName),
     0, Size, Pt);
   VerQueryValue(Pt, '\', Pt2, Size2);
   with TVSFixedFileInfo(Pt2^) do
   begin
     Major:= HiWord(dwFileVersionMS);
     Minor:= LoWord(dwFileVersionMS);
     Release:= HiWord(dwFileVersionLS);
     Build:= LoWord(dwFileVersionLS);
   end;
   FreeMem(Pt, Size);
   Result:= True;
 end; // if Size > 0

end;


[关闭][返回]