F fulljoy Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #1 怎样禁止用户使用Alt+F4关闭我编写的程序???希望能在win98以后的操作系统中都能实现。[?]
H Highpeak Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #2 procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);<br>begin<br> handled:=true;<br>end;<br>
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);<br>begin<br> handled:=true;<br>end;<br>
X XWHope Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #4 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;
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;
S shangshang Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #5 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br> //在这里可以写些条件，如果不是走你的关闭方法，就不让关<br> CanClose:=False;<br>end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br> //在这里可以写些条件，如果不是走你的关闭方法，就不让关<br> CanClose:=False;<br>end;
M mstar Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #7 在主窗口 的 ONCLOSEQUERY 里面 让 CanClose 为 FALSE ，但是，怎样在 任务管理器 不让关 我就不知道了
刘 刘麻子 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-08 #8 楼主只是 希望 ： 禁止用户使用Alt+F4关闭
