Форум » [x]Harbour » Язык ввода текущий windows Help » Ответить

Язык ввода текущий windows Help

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

Ответов - 5

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

taras56: #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) ; // с какой библы цеплять

Dima: taras56 пишет: #include "Windows.h" есть в Include компилятора которая в свою очередь вызывает winuser.h где и живет KLF_ACTIVATE


taras56: 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 '*'"..... .....

taras56: Предыдущую проблему поборол. Вот новая == прога #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



полная версия страницы