按任意键退出屏幕保护程序要怎么写那

不吃荤的猫 · 发表于 2013-5-6 23:30:23

您需要登录才可以下载或查看，没有账号？立即注册

x

按任意键退出屏幕保护程序要怎么写那

aminghanhua · 发表于 2013-5-14 15:06:17

ApplicationEvents控件

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message=WM_KEYDOWN)or(Msg.message=WM_LBUTTONDOWN)or(Msg.message=WM_RBUTTONDOWN)then
begin
close; //Do something
end;
end;

复制代码

沉默的风采 · 发表于 2013-5-15 10:45:36

aminghanhua 发表于 2013-5-14 15:06

登录/注册后可看大图

ApplicationEvents控件

非常不错。。。

账号		自动登录	找回密码
密码			立即注册