Index of Functions
------------------
   1:  locale_GetN
     
     
     
Function Name (   1):  locale_GetN
--------------------------------------------------------------------------------
'Date Created: 26-Mar-2008 08:45:08 AM
'Last Updated: 29-Mar-2008 09:11:50 AM
'Created By  : Ira J. Perlow
'Updated By  : Ira J. Perlow
FUNCTION Locale_GetN AS N ()
'DESCRIPTION Returns current windows keyboard locale for current thread as number

'=========================================================================
' Created by Computer Systems Design & Associates
' Copyright 2008 Computer Systems Design & Associates, All Rights Reserved
' http://www.csda1.com

' You may use this code at your own risk in whole or as a part.
' Use in full or part is permitted with proper attributions to the source,
' except it may not be sold as part of any software package that is a 
' library of functions

'=========================================================================
' Locale_GetN - Version 1.00  Release Date: 20080329

' Syntax	N Locale_GetN()

' Purpose:	Returns current windows locale for current thread

' Input:	None

' Output:	Locale number for current thread

' Errors:

' Typical Usage:

' Examples:
'		?Locale_GetN()

' Notes:
'==========================================================================
' GetKeyboardLayout API function retrieves the active input locale identifier 
'	for the specified thread. If the idThread parameter is zero, 
'	the input locale identifier for the active thread is returned.

' Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long

' Return Values
'	The return value is the input locale identifier for the thread. 
'	The low word contains a language identifier for the input language and 
'	the high word contains a device handle for the physical layout of the keyboard.
'==========================================================================
declare user32 locale@GetKeyboardLayout LL

' Return low 16 bit value
Locale_GetN=locale(0).and.65535

END FUNCTION  
End Function (   1)---------------------------------------------------------------