//
makro PRIMARYLANGID
function PRIMARYLANGID(lgid : Word) : LongInt;
begin
result := lgid and $3FF;
end;
// makro SUBLANGID
function SUBLANGID(lgid : Word) : LongInt;
begin
result := lgid shr 10;
end; // makro MAKELANGID
function MAKELANGID(sPrimaryLanguage : Word; sSubLanguage : Word) : Word;
begin
result := (sSubLanguage shl 10) or sPrimaryLanguage;
end; |