forum.clarionlife.net

Код: Выделить всё

LPCSTR                  EQUATE(CSTRING)
LPSTR                   EQUATE(CSTRING)
HKL                     EQUATE(UNSIGNED)
HWND                    EQUATE(UNSIGNED)
HINSTANCE               EQUATE(UNSIGNED)

Latin    CSTRING('00000409')
Russian  CSTRING('00000419')

SwitchKBD(String KBDLayout)
MODULE('WINAPI')
    GetKeyboardLayoutList(SIGNED,*HKL),SIGNED,pascal,raw
    ActivateKeyboardLayout(HKL,UNSIGNED),HKL,pascal
    GetKeyboardLayoutName(*LPSTR),BOOL,pascal,raw,NAME('GetKeyboardLayoutName')
    GetKeyboardLayout(DWORD),HKL,pascal
    GetKeyboardLayoutNameA(*LPSTR),BOOL,pascal,raw
END

SwitchKBD Procedure (KBDLayout)
AKL  HKL
TMP  CSTRING(20)
loc:i Long

 Code
 loc:i = GetKeyboardLayoutNameA(Tmp)
 if Tmp<>KBDLayout
   AKL = ActivateKeyBoardLayout(1,0)
 end

Код: Выделить всё

i# = GetKeyboardLayoutNameA(LOC:Language)
if LOC:Language=Latin
  SwitchKBD(Russian)  
end    
SETCLIPBOARD(TEKST)
if LOC:Language=Latin
  SwitchKBD(Latin)  
end