Delphi 获取本软件的版本号

function TMainForm.GetThisProgramVersion: string; //获取本软件的版本号
var
Temp, InfoSize : Cardinal;
FileData : Pointer;
FileInfo : PVSFixedFileInfo;
begin
Result := '';
if not FileExists(Application.ExeName) then Exit;

InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), Temp);
if InfoSize = 0 then Exit; //没有版本号
FileData := GetMemory(InfoSize);
try
if not GetFileVersionInfo(PChar(Application.ExeName), 0, InfoSize, FileData) then Exit;
if not VerQueryValue(FileData, '\', Pointer(FileInfo), Temp) then Exit;
Result := Format('%d.%d.%d.%d',
[FileInfo.dwFileVersionMS div $10000,
FileInfo.dwFileVersionMS mod $10000,
FileInfo.dwFileVersionLS div $10000,
FileInfo.dwFileVersionLS mod $10000]);
finally
FreeMemory(FileData);
end;
end;