HanDs
管理员

[Delphi文章] 使电脑黑屏 



program Project1;

{$APPTYPE CONSOLE}

uses Windows, Messages;

begin
   SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);//关闭显器
  Sleep(10000);//延长时间,参数越大,黑屏时间就越长。
   SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);打开显器
end.
嘿,这样就行了,要是你高兴,你可以加个开机起启,让他一开机就黑屏。


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
使 电脑
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复