program Project1;
{$APPTYPE CONSOLE}
uses Windows, Messages;
begin
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);//關(guān)閉顯器
Sleep(10000);//延長時間，參數(shù)越大，黑屏?xí)r間就越長。
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);打開顯器
end.
嘿，這樣就行了，要是你高興，你可以加個開機起啟，讓他一開機就黑屏。
