<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
		>
<channel>
	<title>Комментарии: Delphi 2010. Работа с клавиатурой в условиях Unicode.</title>
	<atom:link href="http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/</link>
	<description>программируем в Delphi</description>
	<lastBuildDate>Mon, 06 Feb 2012 23:51:09 +0000</lastBuildDate>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
	<item>
		<title>Автор: archangel.VII.II</title>
		<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/comment-page-1/#comment-6888</link>
		<dc:creator>archangel.VII.II</dc:creator>
		<pubDate>Sun, 16 Jan 2011 17:42:09 +0000</pubDate>
		<guid isPermaLink="false">http://www.webdelphi.ru/?p=862#comment-6888</guid>
		<description>Подскажите что я должен подставить в переменную      keybd_event( СЮДА ,0,0,0);
у меня по очереди идут клавиши в переменной String напр WASD и вот как string в СЮДА подставить ?</description>
		<content:encoded><![CDATA[<p>Подскажите что я должен подставить в переменную      keybd_event( СЮДА ,0,0,0);<br />
у меня по очереди идут клавиши в переменной String напр WASD и вот как string в СЮДА подставить ?</p>
]]></content:encoded>
	</item>
	<item>
		<title>Автор: Евгений</title>
		<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/comment-page-1/#comment-4576</link>
		<dc:creator>Евгений</dc:creator>
		<pubDate>Wed, 16 Jun 2010 17:40:36 +0000</pubDate>
		<guid isPermaLink="false">http://www.webdelphi.ru/?p=862#comment-4576</guid>
		<description>кто может подсказать почему в Delphi 2009, 
функция ToUnicodeEx, не пренимает
var KS : TKeyboardState;
выходит ошыбка что тип PByte и TKeyboardState не сходятса.
Не пойму как исправить, помогите плиз!</description>
		<content:encoded><![CDATA[<p>кто может подсказать почему в Delphi 2009,<br />
функция ToUnicodeEx, не пренимает<br />
var KS : TKeyboardState;<br />
выходит ошыбка что тип PByte и TKeyboardState не сходятса.<br />
Не пойму как исправить, помогите плиз!</p>
]]></content:encoded>
	</item>
	<item>
		<title>Автор: InfStudent</title>
		<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/comment-page-1/#comment-4506</link>
		<dc:creator>InfStudent</dc:creator>
		<pubDate>Sat, 29 May 2010 15:06:42 +0000</pubDate>
		<guid isPermaLink="false">http://www.webdelphi.ru/?p=862#comment-4506</guid>
		<description>Покопай в сторону функции CharToOEM.</description>
		<content:encoded><![CDATA[<p>Покопай в сторону функции CharToOEM.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Автор: Sergey</title>
		<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/comment-page-1/#comment-4473</link>
		<dc:creator>Sergey</dc:creator>
		<pubDate>Tue, 25 May 2010 17:25:45 +0000</pubDate>
		<guid isPermaLink="false">http://www.webdelphi.ru/?p=862#comment-4473</guid>
		<description>Подскажите,как правильно составить программу для консольных приложений Delphi 2010,
для правильного отображения русского шрифта.
Что работает на Delphi 7, не  работает на Delphi 2010
.......
for i:=1 to length(mes) do
 case mes[i] of
 &#039;A&#039;..&#039;n&#039; : mes[i] := Chr(Ord(mes[i]) - 64);
 &#039;p&#039;..&#039;я&#039; : mes[i] := Chr(Ord(mes[i]) - 16);
 end;
 rus := mes;
........
 Это не работает.</description>
		<content:encoded><![CDATA[<p>Подскажите,как правильно составить программу для консольных приложений Delphi 2010,<br />
для правильного отображения русского шрифта.<br />
Что работает на Delphi 7, не  работает на Delphi 2010<br />
&#8230;&#8230;.<br />
for i:=1 to length(mes) do<br />
 case mes[i] of<br />
 &#8216;A&#8217;..&#8217;n&#8217; : mes[i] := Chr(Ord(mes[i]) &#8212; 64);<br />
 &#8216;p&#8217;..&#8217;я&#8217; : mes[i] := Chr(Ord(mes[i]) &#8212; 16);<br />
 end;<br />
 rus := mes;<br />
&#8230;&#8230;..<br />
 Это не работает.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Автор: Vlad</title>
		<link>http://www.webdelphi.ru/2009/10/delphi-2010-rabota-s-klaviaturoj-v-usloviyax-unicode/comment-page-1/#comment-1282</link>
		<dc:creator>Vlad</dc:creator>
		<pubDate>Fri, 04 Dec 2009 16:43:35 +0000</pubDate>
		<guid isPermaLink="false">http://www.webdelphi.ru/?p=862#comment-1282</guid>
		<description>Да в принципе Delphi тут особо не причём - это всё юникод :)</description>
		<content:encoded><![CDATA[<p>Да в принципе Delphi тут особо не причём &#8212; это всё юникод :)</p>
]]></content:encoded>
	</item>
</channel>
</rss>

