以下均为：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)