Default User Interface Language ؟

السلام عليكم

الموضوع سؤال واجابه في نفس الوقت , ان كان هناك طريقة اخرى لحل هذا السؤال اتمنى الا يبخل الاخوة بالاجابه .

الموضوع يتعلق بــ لغة واجهة المستخدم , يمكن الحصول عليها باحدى الطريقتين التاليتين :

//" Using native api function called " NtQueryDefaultUILanguage
//Win2k,Winxp 
type
PLongInt=^LongInt;
function NtQueryDefaultUILanguage
                (
                        LanguageID:PLongInt
                ):
                DWORD; stdcall; external 'ntdll.dll' name 'NtQueryDefaultUILanguage';
...
procedure TForm1.Button1Click(Sender: TObject);
var
re t: DWORD;
LID : Longint;
begin
LID:=0;
ret:=NtQueryDefaultUILanguage(@LID);
if (ret=0)then
showmessage(inttostr(LID));
end;

//Using win32api function called GetUserDefaultUILanguage
//Win2k,Winxp,WinMe
function GetUserDefaultUILanguage:
                LongInt; stdcall; external 'kernel32.dll' name 'GetUserDefaultUILanguage';
...
procedure TForm1.Button2Click(Sender: TObject);
var
LID : Longint;
begin
LID:=GetUserDefaultUILanguage();
showmessage(inttostr(LID));
end;

ان كان هناك طريقة اخرى اتمنى ذكرها ...