Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Long
Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As  Long
Sub GetSystemLanguage(ByRef LongValue As Long, ByRef StringValue As String)
'   ID
    LongValue = "&H" & Right(Hex(GetSystemDefaultLangID()), 3)
'   Chaîne
    StringValue = String(255, 0)
    VerLanguageName LongValue, StringValue, Len(StringValue)
    StringValue = Left$(StringValue, InStr(1,  StringValue, Chr$(0)) -  1)
End Sub
'
'
'   ===========
'   UTILISATION
'    ===========
'
Private Sub Exemple()
    Dim ID As Long, sVal As String
    Call GetSystemLanguage(ID, sVal)
    MsgBox "ID langue : '" & CStr(ID) & "' => '" & sVal & "'"
End Sub

//Avec Delphi c'est très simple. Il suffit d'utiliser l'une des deux APIs suivantes
GetSystemDefaultLangID  // Fournit l'ID du langage par défaut du système
GetUserDefaultLangID      // Fournit l'ID du langage par défaut de l'utilisateur courant

//Utilisation
Label1.Caption := IntToStr(GetSystemDefaultLangID);
Label2.Caption := IntToStr(GetUserDefaultLangID);

<?php
echo $_SERVER['LANG'];
?>

Public function GetOSLanguage() as string
   return System.Globalization.CultureInfo.InstalledUICulture.NativeName

End function
'Pour information
'System.Globalization.CultureInfo.InstalledUICulture.LCID retourne ID culture (1033 US;1036 FR....)

public string GetOSLanguage() 
{
     return System.Globalization.CultureInfo.InstalledUICulture.NativeName; 
}

<script language="JavaScript" TYPE="text/javascript">
var language =  (navigator.appName == 'Netscape') ? navigator.language : navigator.browserLanguage;
var code = language.substring(0,2);
alert(code);
</script>