FUNCTION long LoadKeyboardLayoutA ( ref string Lay, int Flags ) Library "USER32"
FUNCTION long ActivateKeyboardLayout ( long Lay, int Flags ) Library "USER32"

$PBExportHeader$f_ruslat.srf
$PBExportComments$Функция переключения РУС/ЛАТ
global type f_ruslat from function_object
end type

forward prototypes
global subroutine f_ruslat (string as_language)
end prototypes

global subroutine f_ruslat (string as_language);
String ls_Lay
long ll_Lay, ll_OldLay
if left(lower(as_language),3) = 'rus' then
ls_Lay = '00000422' //-укр '00000419' - рус
else
ls_Lay = '00000409'
end if
ll_Lay = LoadKeyboardLayoutA ( ls_Lay, 0)
If ll_Lay > 0 Then
ll_OldLay = ActivateKeyboardLayout ( ll_Lay, 0)
Else
ll_OldLay = -1
end if

end subroutine



Все.