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ī)就黑屏。




