<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; AutoHotkey: отображение текущей раскладки светодиодом ScrollLock]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=305&amp;type=atom" />
	<updated>2007-02-01T07:06:16Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=305</id>
		<entry>
			<title type="html"><![CDATA[AutoHotkey: отображение текущей раскладки светодиодом ScrollLock]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=1802#p1802" />
			<content type="html"><![CDATA[<p>Для максимального использования экранного пространства можно установить режим &quot;Автоматически скрывать панель задач&quot;. В этом режиме панель задач постоянно спрятана, за исключением случаев, когда она явно вызывается мышью или кнопкой Win. У такого режима есть масса преимуществ и один недостаток: не видно, в каком режиме находится клавиатура - в русском или в английском. Чтобы это узнать (например, в момент ввода пароля), приходится нажимать Win, что неприятно. Поэтому на AHK можно сделать так, чтобы светодиодный индикатор ScrollLock светился, когда включен русский язык, и выключался, когда включен английский.<br />Индикатор этот по жизни вполне бесполезен. Но на случай, если какая-нибудь программа использует ScrollLock (например - Excel), предусмотрено отключение/включение нового режима по нажатию Win+ScrollLock.<br /></p><div class="codebox"><pre><code>SetTimer RussianLED
#ScrollLock::
  if ScrollLockRussianModeOff {
    SetTimer RussianLED, On
    MsgBox ScrollLock LED now indicates Russian Layout
  }
    else {
      SetTimer RussianLED, Off
      MsgBox ScrollLock LED does NOT indicates Russian Layout
    }
  ScrollLockRussianModeOff := !ScrollLockRussianModeOff
return
RussianLED:
  WinGet, WID, ID, A
  WT := DllCall(&quot;GetWindowThreadProcessId&quot;, &quot;UInt&quot;, WID, &quot;UInt&quot;, 0)
  LID := DllCall(&quot;GetKeyboardLayout&quot;, &quot;UInt&quot;, WT)
  Russian := LID = 68748313 ? 1 : 0
  if Russian
    SetScrollLockState On
    else SetScrollLockState Off
return</code></pre></div><p>Автор скрипта - <strong>Ludens</strong>.</p>]]></content>
			<author>
				<name><![CDATA[The gray Cardinal]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=2</uri>
			</author>
			<updated>2007-02-01T07:06:16Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=1802#p1802</id>
		</entry>
</feed>
