program Project1;

{$APPTYPE CONSOLE}

uses Windows, Messages;

begin
   SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);//關(guān)閉顯器
  Sleep(10000);//延長(zhǎng)時(shí)間，參數(shù)越大，黑屏?xí)r間就越長(zhǎng)。
   SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);打開(kāi)顯器
end.
嘿，這樣就行了，要是你高興，你可以加個(gè)開(kāi)機(jī)起啟，讓他一開(kāi)機(jī)就黑屏。