我用EnableWindows能屏蔽鼠标和键盘的输入,但不能屏蔽掉Windows键(就是Ctrl旁边的那个键,按一下出现开始菜单的那个)的响应,请问怎样才能屏蔽它的响应呢?
解决方案 »
- 有关线程同步的问题
- 想把MasterCAM生成的图形文件在Delphi程序中显示出来,求教高手?
- 改变窗体大小后,下拉条怎么改变
- 总是报错,为什么??
- 用RAVE打印报表出错
- 那位有delphi中的Invokable Wizard?谢谢!!!
- !!在线等待!!, Win2000 Server与 Win98之间,网络文件传输问题。
- 除了Image Editor,还有什么工具可以编辑res类型的资源文件?--急用!!!
- 怎麼拆字符串( 簡單問題 )??
- 窗口函数的疑问 ?
- 视图其实和普通的SQL语句好象没有什么区别呀,只不过为那个SQL起个名字而已吗?
- 今天才明白为什么那么多前辈告诉我别用用户直接操作数据库,我以后要做个临时表让用户操作
private
procedure aaaa(var msg:tmessage);message wm_win(这个查一下);
。
provate
procedure aaa(var msg:tmessage);message wm_keydown;
....
tform1.aaa(var msg:tmessage);
begin
if msg.lparam= wm_win then
...
end;
inherited;
procedure TurnSysKeysOff;
var
OldVal : LongInt;
begin
SystemParametersInfo (97, Word (True), @OldVal, 0)
end;procedure TurnSysKeysBackOn;
var
OldVal : LongInt;
begin
SystemParametersInfo (97, Word (False), @OldVal, 0)
end;