★一段Delphi的读版本号程序被瑞星2009当成病毒。
以下均为：windows的标准API函数，
function FileInfo(const FileName: string): TFixedFileInfo;
var
dwHandle, dwVersionSize: DWORD;
strSubBlock: string;
pTemp: Pointer;
pData: Pointer;
begin
strSubBlock := '\';
// 取得文件版本信息的大小
dwVersionSize := GetFileVersionInfoSize(PChar(FileName), dwHandle);
if dwVersionSize <> 0 then
begin
GetMem(pTemp, dwVersionSize);
try
//取文件版本信息
if GetFileVersionInfo(PChar(FileName), dwHandle,
dwVersionSize, pTemp) then
//查询文件版本信息
if VerQueryValue(pTemp, PChar(strSubBlock),
pData, dwVersionSize) then
Result := PFixedFileInfo(pData)^;
finally
FreeMem(pTemp);
end; // try
end; // if dwVersionSize
end;
用户系统信息：Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)
