//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetKeyboardLayoutName.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetKeyboardLayoutName.
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, May, 26th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_GetKeyboardLayoutName
Define KL_NAMELENGTH For 9

External_Function WinAPI_GetKeyboardLayoutName "GetKeyboardLayoutNameA" User32.Dll Pointer pwszKLID Returns Integer

// 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#IF PKG_Version<|CI9
  Function GetKeyboardLayoutName For Desktop Returns String
#ELSE
  Function GetKeyboardLayoutName Desktop Returns String
#ENDIF
// 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    String sKeyBoardLayoutName
    Integer iVoid

    Move (Repeat (Character (0), KL_NAMELENGTH)) To sKeyBoardLayoutName
    Move (WinAPI_GetKeyboardLayoutName (AddressOf (sKeyBoardLayoutName))) To iVoid

    Function_Return (Cstring (sKeyBoardLayoutName))
End_Function // GetKeyboardLayoutName
#ENDIF