独 独帅 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-12 #3 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, ……)<br>不过这样的话,Control-Alt-Del, Alt-Tab, Control-Esc可都不能用了。
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, ……)<br>不过这样的话,Control-Alt-Del, Alt-Tab, Control-Esc可都不能用了。
晶 晶晶 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-01 #4 做一个钩子函数,将WIN键事件消息拦截下来,处理(当然是没有用的处理了)掉,返回0<br>这样系统将得不到这个消息,然后将你的程序窗口的showmainform设置为false,在任务栏<br>也要隐藏,最后注册为系统进程,这样别人看不到你程序的存在,但却在另外方面使WIN键<br>失去了作用,和屏蔽的作用是一样的,而且其他的键作用依然!不知道你是不是要这种效果
做一个钩子函数,将WIN键事件消息拦截下来,处理(当然是没有用的处理了)掉,返回0<br>这样系统将得不到这个消息,然后将你的程序窗口的showmainform设置为false,在任务栏<br>也要隐藏,最后注册为系统进程,这样别人看不到你程序的存在,但却在另外方面使WIN键<br>失去了作用,和屏蔽的作用是一样的,而且其他的键作用依然!不知道你是不是要这种效果
D D影子D Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-01 #6 把它取了,哈哈哈<br>其实可以这样:<br>tempint:integer;<br>begin<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempint,0);<br>end;
把它取了,哈哈哈<br>其实可以这样:<br>tempint:integer;<br>begin<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempint,0);<br>end;
C cedar Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-01 #7 上面的人说的都十分的不错,还有一个更好的方法就是通过物理手段解决。<br>把那个键取下来!!!
Y yangmingnian Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-01 #8 关注。。。<br>我正好也要解决这个问题。<br>在win98下可以用<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempint,0);<br>但是在win2000下没作用,至于用钩子函数解决,我还没有试过
关注。。。<br>我正好也要解决这个问题。<br>在win98下可以用<br>SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempint,0);<br>但是在win2000下没作用,至于用钩子函数解决,我还没有试过
程 程云 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #9 这段程序最合适了<br><br>function LowLevelKeyboardProc(nCode:integer;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;<br> var<br> fEatKeystroke:BOOL;<br> pKBDLLHOOKSTRUCT;<br> begin<br> result:=0;<br> fEatKeystroke := false;<br> p:=PKBDLLHOOKSTRUCT(lparam);<br> if (ncode=HC_ACTION) then<br> begin<br> case wparam of<br> WM_KEYDOWN,<br> WM_SYSKEYDOWN,<br> WM_KEYUP,<br> WM_SYSKEYUP:<br> featkeystroke :=(p.vkcode = VK_Lwin) or (p.vkcode = VK_Rwin)or (p.vkcode = VK_apps);<br> end;<br> end;<br> if featkeystroke = true then<br> result:=1;<br> if ncode <> 0 then<br> result := callnexthookex(0,ncode,wparam,lparam);<br> end;<br><br>procedure form1.lock;<br>begin<br> hhklowlevelkybd := setwindowshookexw(wh_keyboard_ll,LowlevelKeyboardproc,hinstance,0);<br>end;<br><br>锁住左右win键和application键,win98/nt/2000/xp都可以
这段程序最合适了<br><br>function LowLevelKeyboardProc(nCode:integer;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;<br> var<br> fEatKeystroke:BOOL;<br> pKBDLLHOOKSTRUCT;<br> begin<br> result:=0;<br> fEatKeystroke := false;<br> p:=PKBDLLHOOKSTRUCT(lparam);<br> if (ncode=HC_ACTION) then<br> begin<br> case wparam of<br> WM_KEYDOWN,<br> WM_SYSKEYDOWN,<br> WM_KEYUP,<br> WM_SYSKEYUP:<br> featkeystroke :=(p.vkcode = VK_Lwin) or (p.vkcode = VK_Rwin)or (p.vkcode = VK_apps);<br> end;<br> end;<br> if featkeystroke = true then<br> result:=1;<br> if ncode <> 0 then<br> result := callnexthookex(0,ncode,wparam,lparam);<br> end;<br><br>procedure form1.lock;<br>begin<br> hhklowlevelkybd := setwindowshookexw(wh_keyboard_ll,LowlevelKeyboardproc,hinstance,0);<br>end;<br><br>锁住左右win键和application键,win98/nt/2000/xp都可以
I iloveqq Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #11 to 程云<br> 你那需要uses什么单元???