Nothing

GetFileVersionInfo这个API可以完成你的要求

var
    InfoSize , Zero : DWORD;
    VersionInfo ,Info : Pointer;
    Translation: PLANGANDCODEPAGE;
    InfoPath : String;
begin
    InfoSize := GetFileVersionInfoSize(PChar(NamePath),Zero);
    if InfoSize = 0 then begin
        Exit;
    end;
    GetMem(VersionInfo,InfoSize);
    try
        if Not GetFileVersionInfo(PChar(NamePath),0,InfoSize,VersionInfo) then begin
            Exit;
        end;
        if VerQueryValue(VersionInfo, '\VarFileInfo\Translation ', Pointer(Translation), InfoSize) then
        begin
            InfoPath := '\StringFileInfo\ ' + inttoHex(Translation^.wLanguage, 4) + inttoHex(Translation^.wCodePage, 4) + '\ ';
            GetMem(Info, 2000);
            VerLanguageName(Translation^.wLanguage, Info, 2000);
        end
        else begin//set default value

            InfoPath := '\StringFileInfo\040904E4\ ';
        end;

        if VerQueryValue(VersionInfo, PChar(InfoPath + 'ProductVersion '), Info, InfoSize) then
            S1 := string(PChar(Info)); //版本；

        if VerQueryValue(VersionInfo, PChar(InfoPath + 'CompanyName '), Info, InfoSize) then
            S2 := string(PChar(Info)); //厂商；

        if VerQueryValue(VersionInfo, PChar(InfoPath + 'LegalTrademarks '), Info, InfoSize) then
            S3 := string(PChar(Info)); //

        if VerQueryValue(VersionInfo, PChar(InfoPath + 'FileDescription '), Info, InfoSize) then
            S4 := string(PChar(Info)); //描述；

    finally
        FreeMem(VersionInfo, InfoSize);
    end;
end;