黑屏与不黑屏.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 7 行

黑屏与不黑屏

黑屏
SendMessage(Application.Handle,  wm_SysCommand,  SC_MonitorPower, 0) ;
不黑
SendMessage(Application.Handle,  wm_SysCommand,  SC_MonitorPower, -1) ;