Get Windows System Language

[ExMember001]

Hi there!
Here is a little subroutine to get the language of the user system

Happy New Year!!!!

Code Select Expand



'use latest sapero api headers file
$INCLUDE "windowssdk.inc"

MESSAGEBOX 0,GetWinLanguage(),"Your system is using this language:"

DO:UNTIL INKEY$ <> ""
END

Sub GetWinLanguage(),string
    string buffer
    VerLanguageName(GetSystemDefaultLangID(),buffer,100)
    return buffer
endsub