Как определить язык инфы о версии ЕХЕ???

← →
DredXXX © (2002-12-14 19:20) [0]

HELP!!!!
Кто знает помогите пожалуйста!!!
У меня следующая проблема... Я из ехе-файла выташил размер инфы о версии файла функцией GetFileVersionInfoSize, потом считал её ( GetFileVersionInfo), но а с языком никак не получается! Использую следующую ф-ию:
VerQueryValue(VIBuff,"\VarFileInfo\Translation",Trans,buffsize);
Профессионалы!!! Помогите пожалуйста!!! Обясните по подробнее как вытащить язык на котором записанна инфа.

СПАСИБО!!!

← →
asmith (2002-12-14 20:11) [1]

type
TLangCodePage = record
wLanguage : WORD;
wCodePage : WORD;
end;
var
plcp : array of TLangCodePage;
SubBlock : string;
...
VerQueryValue(VIBuff, "\VarFileInfo\Translation", pointer(plcp), buffsize);
for i := 0 to buffsize / SizeOf(pointer) do
begin
// Retrieve file description for language and code page "i".
SubBlock := Format("\StringFileInfo\\%04x%04x\FileDescription",plcp[i].wLanguage, plcp[i].wCodePage);
VerQueryValue(VIBuff, SubBlock, Buffer, dwBytes);
end;

Конечно спасибо asmith, но я хотел бы по-подробнее. Кто понимает эту штуку напишите пожалуйста что это за цикл и что он делает.
СПАСИБО!

Как определить язык инфы о версии ЕХЕ??? Найти похожие ветки