屏幕唤醒

Question

在屏幕保护状态下，DELPHI如何写代码可以取消屏幕保护呢，如在屏保下任一键都可以取消屏保呢 代码如何写呢？

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  mouse_event(MOUSEEVENTF_MOVE, 1, 1, 0, 0);
end;

Answer 2

我的意思是,(电脑程序正运行)通过串口发码，当客户电脑收到相应的协议，电脑会自动取消屏幕保护
----------------
你有说这个意思吗？---------------
在你的程序里面接收串口发送过来的相应的协议的地方，调用
mouse_event(MOUSEEVENTF_MOVE, 1, 1, 0, 0);可以取消屏保