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

global type f_ruslat from function_object
end type

forward prototypes
global subroutine f_ruslat (readonly string as_language)
end prototypes

global subroutine f_ruslat (readonly string as_language);String ls_lng
long ll_new, ll_old
if left(lower(as_language), 3 ) = 'rus' then
	ls_lng = '00000419'//RUS
else
	ls_lng = '00000409'//EN
end if
ll_new = in_win32.LoadKeyboardLayoutA ( ls_lng,  0 )
If ll_new >  0  Then 
	ll_old = in_win32.ActivateKeyboardLayout ( ll_new,  0 ) 
Else 
	ll_old = - 1 
end if
end subroutine