黑屏与不黑屏.txt

自己对DELPHI学习的一点体会

黑屏与不黑屏

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