Отправлено: 15.01.22 12:34. Заголовок: Язык ввода текущий windows Help

1. как прочитать что назначено ?
2. как назначить нужный ?
все перепробовал RU1251 стоит и все

 Отправлено: 15.01.22 12:46. Заголовок: поиск на форуме по с..

поиск на форуме по слову RASKLADKA

 Отправлено: 15.01.22 13:26. Заголовок: на форуме по слову RASKLADKA читал

#PRAGMA BEGINDUMP
#include "Windows.h"
HB_FUNC(UKR) { LoadKeyboardLayout("00020422", KLF_ACTIVATE) ; }
HB_FUNC(RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; }
HB_FUNC(ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; }
HB_FUNC(RASKLADKA) {
TCHAR m_PreviousLayout[KL_NAMELENGTH] ;
GetKeyboardLayoutName(m_PreviousLayout);
hb_retc(m_PreviousLayout);
}
#pragma ENDDUMP
=========================
#include "Windows.h" нет такой
LoadKeyboardLayout("00020422", KLF_ACTIVATE) ; // с какой библы цеплять

 Отправлено: 15.01.22 13:29. Заголовок: taras56 пишет: #inc..

taras56 пишет:

цитата:

#include "Windows.h"

есть в Include компилятора которая в свою очередь вызывает winuser.h где и живет KLF_ACTIVATE

 Отправлено: 15.01.22 15:15. Заголовок: Добвавил #include "Windows.h" bcc 5.5.1 результат

c:\bcc\include\windows.h(28) Error E0024 Error in #pragma
c:\bcc\include\windows.h(184) Error E0025 Error in #if expression
c:\bcc\include\excpt.h(23) Error E0024 Error in #pragma
c:\bcc\include\excpt.h(34) Error E0025 Error in #if expression
c:\bcc\include\excpt.h(61) Error E0030 Syntax error "syntax error at 'ENUM'"
c:\bcc\include\excpt.h(62) Error E0030 Syntax error "syntax error at ','"
c:\bcc\include\excpt.h(63) Error E0030 Syntax error "syntax error at ','"
c:\bcc\include\excpt.h(64) Error E0030 Syntax error "syntax error at ','"
c:\bcc\include\excpt.h(65) Error E0020 Incomplete statement or unbalanced delimiters
c:\bcc\include\excpt.h(67) Error E0030 Syntax error "syntax error at '}'"
c:\bcc\include\excpt.h(97) Error E0030 Syntax error "syntax error at 'STRUCT'"
c:\bcc\include\excpt.h(99) Error E0030 Syntax error "syntax error at '__C_SPECIFIC_HANDLER'"
c:\bcc\include\excpt.h(100) Error E0030 Syntax error "syntax error at '_EXCEPTION_RECORD'"
c:\bcc\include\excpt.h(101) Error E0030 Syntax error "syntax error at '*'".....
.....

 Отправлено: 15.01.22 15:52. Заголовок: Ввод на русском не смотря на то что раскладка 00000409

Предыдущую проблему поборол.
Вот новая
== прога
#include "windows.ch"
#include "guilib.ch"

Function Parol(oIcon,lL)
// oIcon иконка
// lL
Local oModDlg // , oFont := HFont():Add( "MS Sans Serif",0,-13 )
Local cXXX := " "
Local cland:=""
Local cZad:="Ввод пароля",cRas,cRas2
//----------------------------------------------------------
cRas:=RASKLADKA()
if cRas = "00000419" // если русский
eng()
endif
cRas2:=RASKLADKA()
//hwg_MsgInfo("1 "+cras ,"2 "+cras2)
CLEAR TYPEAHEAD
cZad:=cZad+" (ENG)"
INIT DIALOG oModDlg CLIPPER NOEXIT TITLE cZad AT 210,10 SIZE 220,90 ICON oIcon

@ 10,10 GET cXXX PASSWORD SIZE 200, 26

@ 10,50 BUTTON "Ввести" SIZE 80, 28 ON CLICK {|| oModDlg:lResult:=.T.,hwg_EndDialog() }
@ 130,50 BUTTON "Отмена" SIZE 80, 28 ON CLICK {|| hwg_EndDialog() }

SET KEY 0,VK_ESCAPE OF oModDlg TO {|| hwg_EndDialog() }

// SET KEY 0,VK_RETURN OF oModDlg TO {|| oModDlg:lResult:=.T.,hwg_EndDialog() }
ReadExit( .T. )
CLEAR TYPEAHEAD
ACTIVATE DIALOG oModDlg CENTER
IF oModDlg:lResult
hwg_MsgInfo(cxxx,cras2)
if cRas = "00000419" ; rus() ; Endif
Return Trim(cXXX)
ENDIF
if cRas = "00000419" ; rus() ; Endif
Return ""
//==================================================================================================
Function lis_eng_kbd(rsl)
rsl:=RASKLADKA()
return (rsl== "00000409") //eng

Function lis_rus_kbd(rsl)
rsl:=RASKLADKA()
return (rsl== "00000419") //rus

#pragma BEGINDUMP
#include "Windows.h"
#include "hbapi.h"
HB_FUNC(RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; }
HB_FUNC(ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; }
HB_FUNC(RASKLADKA)
{
TCHAR m_PreviousLayout[KL_NAMELENGTH] ;
GetKeyboardLayoutName(m_PreviousLayout);
hb_retc(m_PreviousLayout);
}
#pragma ENDDUMP