API UnloadKeyboardLayout

[olesis]

Ребят помогите выгрузить из списка раскладок клавиатуры заданные языки. Т.е этим кодом я добавляю новую раскладку, украинский язык: (я пишу на .НЕТ, просто создал тут тему т.к код практически одинаковый, а людей сюда больше заходит )

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


Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Const KLF_ACTIVATE = 1
Public Sub SetLanguage(ByVal s As String)
        Select Case UCase(s)
            Case "R"
                LoadKeyboardLayout("00000419", KLF_ACTIVATE)
            Case "U"
                LoadKeyboardLayout("00000422", KLF_ACTIVATE)
            Case "E"
                LoadKeyboardLayout("00000409", KLF_ACTIVATE)
            Case Else
        End Select
    End Sub


После выполнения кода в список раскладок спокойно добавляется украинский язык, а как его теперь так же программно выгрузить? вот этот код не срабатывает не в какую:

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


Private Declare Function UnloadKeyboardLayout Lib "user32" Alias "UnloadKeyboardLayout" (ByVal hkl As Long) As Long
    Public Sub RemoveLanguage(ByVal s As String)
        Select Case UCase(s)
            Case "R"
                UnloadKeyboardLayout("00000419")
            Case "U"
                UnloadKeyboardLayout("00000422")
            Case "E"
                UnloadKeyboardLayout("00000409")
            Case Else
        End Select
    End Sub


Что делаю не так? уже намучался, пробовал практически всё, и в шестнадцатиричном виде передавал параметр, и в десятичном, ну я не знаю уже что не так

[Viper]

If the function fails, the return value is zero. The function can fail for the following reasons:

An invalid input locale identifier was passed.
The input locale identifier was preloaded.
The input locale identifier is in use.
To get extended error information, call GetLastError.

Какая ошибка получается?
И, кстати, если уж речь идет за NET, то меняй в обяъвлениях Long на Integer.

[Хакер]

(я пишу на .НЕТ, просто создал тут тему т.к код практически одинаковый, а людей сюда больше заходит )

Туда, куда ты поместил тему, заходит большее количество людей, потому что ещё не всем людям Microsoft со своей пропагандой дотнета разрушила мозг.

Тем не менее, темы нужно помещать в правильные разделы, независимо от того, в какой раздел ходит больше народу.

[olesis]

ну только этим и отличается, Long на Integer, это не суть, API везде API, сюда запостил т.к там шансы меньше что кто то ответит, всё таки API и .NET

Какая ошибка получается?

Язык не выгружается, в МСДН читал, все верно передаю, раскладка не активна, но не выгружается, возвращает 0 и всё, какие могут быть еще идеи?

[Ramzes]

ааа...у меня разрушен моск

[olesis]

К чему это сообщение?

[Ramzes]

olesis

потому что ещё не всем людям Microsoft со своей пропагандой дотнета разрушила мозг

[Williams]

Ramzes

[olesis]

Ясно а по теме, какие идеи есть, у меня тогда тоже скоро мозг разрушиться

[Ramzes]

вижу ты не только тут отметился

для начала, как заметил Viper следует заменить Long на Integer

затем прочитать тут

и подумать: "а правильно ли ввел идентификатор языка"

и если првильно, то посмотреть, что вренет GatLastError

[Viper]

Гм... А идея передавать строку в качестве целого числа вообще весьма продуктивна. Не тут ли собака покапалась?

[Ramzes]

удаляет украинский язык (раскладку если хочешь)

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


Private Declare Function UnloadKeyboardLayout Lib "user32" (ByVal hkl As Long) As Long

Private Sub Command1_Click()

MsgBox UnloadKeyboardLayout(&H422)

End Sub


ну и соответственно на .NET

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

Public Class Form1
    Private Declare Function UnloadKeyboardLayout Lib "user32" (ByVal hkl As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(UnloadKeyboardLayout(&H422))
    End Sub
End Class

[olesis]

..........................нет слов........оказывается раскладка удаляется, но в списках так и висит, а через панель управления её не видно....мляяяяяя скоко нервов потратил, рамзес, большое человеческое спасибо, а так же вам всем, ребята вы единственные кто выручил

[Ramzes]

olesis
у меня на 2к она и из "списков" пропадает, разве что у тебя окошко с раскладками постоянно открыто, тогда возможно

[olesis]

Хм, интересно, поэкспериментирую ещё, всё равно спасибо, очень выручил

[olesis]

нашел причину, в реестре храниться список текущих раскладок, удаляем ключ с параметром языка раскладки и в списке он исчезает, ещё раз спасибо тему можно закрывать

[Williams]

olesis

угу, в следующий раз только обрати внимание, что существует кнопка "Правка". Ей можно пользоваться для добавление текста в существующее сообщение и совсем не обязательно отправлять новое сообщение. А "закрывают тему" только в исключительных случаях.