Lekérdezés

Olyat szeretnék, hogy egy futó progi megtudná, hogy milyen nyelven telepedett a Windows egykor, vagyis mi a Windows nyelve. Ez azért kellene, hogy a progi gombfeiratokat tudjon váltani a nyelv szerint.
Vagyis hogyan lehet kiolvasni az aktuális nyelvet?

function

function GetWindowsLanguage(LCTYPE: LCTYPE {type of information}): string;
var
Buffer : PChar;
Size : integer;
begin
Size := GetLocaleInfo (LOCALE_USER_DEFAULT, LCType, nil, 0);
GetMem(Buffer, Size);
try
GetLocaleInfo (LOCALE_USER_DEFAULT, LCTYPE, Buffer, Size);
Result := string(Buffer);
finally
FreeMem(Buffer);
end;
end;

Könyvajánló

Programozzunk Turbo Delphi Rendszerben