发信人: 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;
|
|