Windows 7 - customization after install - Keyboard Layouts

[mLipok]

After installing the windows system has installed the following languages​​:

American - international
Polish (programmer)
Polish (214)

I need to remove the 1 and 3 position and leave only Polish (programmer)

Question:
whether it can be done in the background, or possibly how to invoke these window settings.

 

EDIT:

Topic change:

from:

Windows 7 - customization after install

to:

Windows 7 - customization after install - Keyboard Layouts

Edited April 25, 2014 by mLipok

[JLogan3o13]

Run LPKSETUP /? to see your options. You just have to use the /u switch and specify the language packs to uninstall.

[mLipok]

Thanks JLogan3o13

unfortunately not what I meant.

but your answer inspired me and has focused on are:

http://technet.microsoft.com/en-us/library/cc766191(v=ws.10).aspx

http://technet.microsoft.com/en-us/library/cc766503(v=ws.10).aspx

 

[HKEY_LOCAL_MACHINESYSTEMControlSet001ControlKeyboard Layouts]

Polish (214)
0x00010415
66581

Polish (Programmers)
0x00000415
1045

United States - International
0x00020409
132105

 

Here is a Registry solution

http://www.sevenforums.com/general-discussion/249693-unwanted-keyboard-language-bar.html

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Keyboard Layout]
[HKEY_CURRENT_USER\Keyboard Layout\Preload]
"1"="00000415"
"2"="d0010415"
"3"="d0020415"
[HKEY_CURRENT_USER\Keyboard Layout\Substitutes]
"d0010415"="00010415"
"d0020415"="00020409"
[HKEY_CURRENT_USER\Keyboard Layout\Toggle]

[JLogan3o13]

Ok, makes a big difference when you specify what you mean by "system has installed languages"

[mLipok]

Sorry JLogan3o13
but really your help was significant and allowed me to adopt a another piece of knowledge about Windows.

[mLipok]

AutoIt working solution:

_KeyboardLayout_CleanUp('00000415')
Func _KeyboardLayout_CleanUp($sWhatToLeave)
    Local $sKey = 'HKEY_CURRENT_USER\Keyboard Layout\Preload', $sSubKey, $iError, $iExtended
    For $i = 10 To 1 Step -1
        $sSubKey = RegEnumVal($sKey, $i)
        $iError = @error
        $iExtended = @extended
        If $iError = 0 Then
            If StringInStr(RegRead($sKey, $sSubKey), $sWhatToLeave) = 0 Then
                RegDelete($sKey, $sSubKey)
            EndIf
        EndIf
    Next
    $sKey = 'HKEY_CURRENT_USER\Keyboard Layout\Substitutes'
    For $i = 10 To 1 Step -1
        $sSubKey = RegEnumVal($sKey, $i)
        $iError = @error
        $iExtended = @extended
        If $iError = 0 Then
            If StringInStr(RegRead($sKey, $sSubKey), $sWhatToLeave) = 0 Then
                RegDelete($sKey, $sSubKey)
            EndIf
        EndIf
    Next
EndFunc   ;==>_KeyboardLayout_CleanUp

EDIT:
script fixing

Edited April 23, 2014 by mLipok

[JLogan3o13]

Glad you got it working