X
xie_huan
Unregistered / Unconfirmed
GUEST, unregistred user!
调用函数SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@temp,0)后,只屏蔽了Alt+Esc<br>,Alt+Tab和Ctrl+Alt+Del热贱,无法屏掉Alt+F4<br>
游
游向明
Unregistered / Unconfirmed
GUEST, unregistred user!
用KEYDOWN事件来屏弊了可以啊！
S
shenloqi
Unregistered / Unconfirmed
GUEST, unregistred user!
在你的Form的OnKeyDown里面写代码就可以了。
X
xie_huan
Unregistered / Unconfirmed
GUEST, unregistred user!
我刚学DELPHI不久,能否详细点,谢谢
王
王公子
Unregistered / Unconfirmed
GUEST, unregistred user!
gz
Y
yangxiao_jiang
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);<br>begin<br>if (ssAlt in shift)and(key=115) then key:=0;<br>end;<br>就可以了
C
childboy
Unregistered / Unconfirmed
GUEST, unregistred user!
看看我以前的贴子，不好意思，我忘了id了！[
]
]
W
wukw
Unregistered / Unconfirmed
GUEST, unregistred user!
用HOOK！
B
bigroute
Unregistered / Unconfirmed
GUEST, unregistred user!
onCloseQuery(canclose :booean);<br>begin<br>Canclose :=false;<br>end;
C
chinargb
Unregistered / Unconfirmed
GUEST, unregistred user!
学习！
H
htw
Unregistered / Unconfirmed
GUEST, unregistred user!
向系统注册Alt+F4热键，然后在代码里什么也不做，这样可以屏蔽全局的 Alt+F4:<br> private<br> { Private declarations }<br> HotKeyId: Integer;<br> procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键消息响应<br><br>procedure TForm1.HotKeyDown(var Msg: Tmessage);<br>begin<br> if (Msg.LparamLo = Mod_Alt) And (Msg.LParamHi = VK_F4) then <br> begin<br> ; // 什么也不做,呵呵， 不写也行<br> end;<br>end;<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> HotKeyId := GlobalAddAtom('HotKey') - $C000;<br> RegisterHotKey(Handle, hotkeyid, Mod_Alt, VK_F4);<br>end;<br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> UnRegisterHotKey(handle, HotKeyId);<br>end;<br><br>
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
用键盘钩子。
J
joe-liu
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);<br> if (Key=VK_F4) and (ssAlt in shift) then<br> Key :=0;<br><br>end;
小
小雨哥
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个简单的办法，告诉你你会笑掉大牙的，但确实 Windows 是这样给加上 Alt-F4 的，<br>所以这个方法只要是 Windows ，不论版本都可使用。
X
xie_huan
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位!
L
loginfree
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br>if((Key=VK_F4) AND (ssAlt in Shift)) then<br> Key:=0;<br>end;<br>这是唯一的最简单的方法!!!
李
李翔鹏
Unregistered / Unconfirmed
GUEST, unregistred user!
学习