Simulate the pressing of keyboard keys

type
TBuffers = array [0..1] of TKeyboardState;
var
pKeyBuffers: ^TBuffers;
lParam: LongInt;
begin
(* check if the target window exists *)
if IsWindow(hWindow) then
begin
(* set local variables to default values *)
pKeyBuffers := nil;
lParam := MakeLong(0, MapVirtualKey(key, 0));

(* modify lparam if special key requested *)
if specialkey then
lParam := lParam or $1000000;

(* allocate space for the key state buffers *)
New(pKeyBuffers);
try
(* Fill buffer 1 with current state so we can later restore it.
Null out buffer 0 to get a "no key pressed" state. *)
GetKeyboardState(pKeyBuffers^[1]);
FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0);

(* set the requested modifier keys to "down" state in the buffer*)
if ssShift in shift then
pKeyBuffers^[0][VK_SHIFT] := $80;
if ssAlt in shift then
begin
(* Alt needs special treatment since a bit in lparam needs also be set *)
pKeyBuffers^[0][VK_MENU] := $80;
lParam := lParam or $20000000;
end;
if ssCtrl in shift then
pKeyBuffers^[0][VK_CONTROL] := $80;
if ssLeft in shift then
pKeyBuffers^[0][VK_LBUTTON] := $80;
if ssRight in shift then
pKeyBuffers^[0][VK_RBUTTON] := $80;
if ssMiddle in shift then
pKeyBuffers^[0][VK_MBUTTON] := $80;

(* make out new key state array the active key state map *)
SetKeyboardState(pKeyBuffers^[0]);
(* post the key messages *)
if ssAlt in Shift then
begin
PostMessage(hWindow, WM_SYSKEYDOWN, key, lParam);
PostMessage(hWindow, WM_SYSKEYUP, key, lParam or $C0000000);
end
else
begin
PostMessage(hWindow, WM_KEYDOWN, key, lParam);
PostMessage(hWindow, WM_KEYUP, key, lParam or $C0000000);
end;
(* process the messages *)
Application.ProcessMessages;

(* restore the old key state map *)
SetKeyboardState(pKeyBuffers^[1]);
finally
(* free the memory for the key state buffers *)
if pKeyBuffers <> nil then
Dispose(pKeyBuffers);
end; { If }
end;
end; { PostKeyEx }

http://www.moon-soft.com/doc/42470.htm

小改注册表 轻松实现Windows Live Messenger9.0多开功能

HKEY_LOCAL_MACHINE / SOFTWARE / Microsoft / Windows Live；

MultipleInstances，DWORD 值，1


即：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\MultipleInstances为MSN内部控制是否允许多重进入的开关。

原文：
http://q.yesky.com/group/review-17643153.html

采用单芯片KH93L001UC实现USB Phone功能

摘要：KH93L001UC是旺宏微电子（苏州）有限公司推出的单芯片USB Phone解决方案；本文介绍了这颗芯片的基本框架，并详细介绍了如何采用这款芯片来实现VOIP功能。

关键词：USB，HID，Codec，PLL，网络电话

1．概述
KH93L001UC 是旺宏微电子（苏州）有限公司2006年推出的USB Phone单芯片解决方案，其内部高度集成了 USB Transceiver，Voice Codec，PLL，Regulator，蜂鸣器接口，HID键盘接口及GPIO，周边所需器件较少；采用此芯片设计USB网络电话，可以有效的降低生产成本，并加快产品的上市时间。

2．系统组成
由于KH93L001UC已高度集成了实现USB Phone所需的基本模块，因此，只需要一些简单的外围必备电路，就可以实现USB Pone网络电话功能。

详细内容见：http://www.mcu123.com/news/Article/interface/usb/200609/330.html
该公司网址：http://www.mxic.com.cn/

历史成语典故：呆若木鸡

今天要说这个典故是CCTV所犯的低级错误引发的。话说今日晚间联合对抗中一题曰，呆若木鸡是褒义词还是贬义词。结果选手不知道就瞎猜，不过猜得很准，是褒义词。果不其然，被不是怎么会打扮的王同学判错了。
按说这题是不可能出的，因为古今含义不同，可是有人出，总人有人核实一下吧。一个VS对抗，没事就玩美女大逛街已经过分了，这词乱出，乱答，乱判，就让人更觉得这节目素质有点那个了。难道再来个呆板变呆的后续？
借机补课罢，以下内容引用：

“呆若木鸡”这个词，如今一般用来形容一个人有些痴傻发愣的样子，是一个贬义词。然而它最初的含义正好相反，是一个最高级的褒义词，出自《庄子》——
　　
　　《庄子·达生篇》中有这样一个寓言：古时候人们很喜欢斗鸡的游戏，一个叫纪渻子的人专门为国王训练斗鸡，准备参加搏斗。过了十天，国王问纪渻子：鸡已经训练好了吗？纪渻子回答说；还没有，这只鸡表面看起来气势汹汹的，其实没有什麽底气。又过了十天，国王再次询问，纪渻子说还不行，因为它一看到别的鸡的影子，马上就紧张起来，说明还有好斗的心理。又过了十天，国王去问但还是不行，因为纪渻子认为这只鸡还有些目光炯炯，气势未消。这样再过了十天，纪省子终于说差不多了，它虽然偶尔还叫几声，已经有些呆头呆脑、不动声色，看上去就像木头鸡一样，说明它已经进入完美的精神境界了。国王于是把这只鸡放进斗鸡场，没想到别的鸡一看到这只“呆若木鸡”的斗鸡，还没有交手就都掉头逃走。
　　
　　庄子的这个寓言很有趣，作为一位大哲学家，庄子往往就是用这样的寓言，来表达深刻的哲理。这个寓言似乎是要告诉人们：人们如果想要战胜对手，那麽首先就要战胜自我。
　　
　　如果再深入一步，那麽这个寓言又似乎是在暗示某种精神修炼的过程。我们可以注意到：纪渻子在训练斗鸡的时候，不是让鸡每天增加一点技巧，而是让它每天减少一些心理负担。这正像老子所描述过的修道过程——“为学日益，为道日损。损之又损，以至于无为”。也就是说，通常的学习，总是要逐步增加一些知识技艺，而修道则相反，要每天努力消除一些东西。人们不断地消除种种私欲杂念，也就不断地接近理想的精神境界。
　　
　　斗鸡的最高境界是“呆若木鸡”，这样的形容的确令人印象深刻、发人深省。它让人不由得想到古人所说的“大智若愚”、“大巧若拙”、“大勇若怯”；大智慧表现出来的也许是愚钝、高度的技巧看起来却有些笨拙、真正的勇敢往往被误解为胆怯。相反的两极在某种高度便相互接近转化，这就是道家思想所特有的辩证的反向思维。

http://msxx.oicp.net/Article/Class42/Class44/200510/727.html

手机串号真伪查询

http://www.numberingplans.com/?page=analysis&sub=imeinr

网址速递

http://www.google.com/sketchup/product/

http://1000copy.itpub.net/category/10379/19256