delphi 电脑黑屏

delphi 电脑黑屏

时间:2011-5-26来源:yang 作者: peng点击: 6次

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.
嘿，这样就行了，要是你高兴，你可以加个开机起启，让他一开机就黑屏。