小弟發現大部分的筆記型電腦將其螢幕蓋上的時候並沒有關閉螢幕電源，只是將其亮度調暗，您可以測試看看一般筆記型電腦螢幕下方有個小按鈕可以壓，壓下去的時候螢幕亮度將減低，但是仍然沒有關閉電源，如此長久下來將浪費大量的電費並造成螢幕的損壞，因此小弟想要利用作業系統提供的電源配置方式讓電腦自動斷電，但是這樣還是有些小問題因為必須設定一段時間沒有使用電腦才自動斷電，如果設定 10 分鐘斷電，那麼有 9 分多鐘的電費就浪費了，而且發現執行某些程式的時候系統無法偵測空閒狀態，造成無法自動斷電的後果，因此寫了這個小程式來強制讓螢幕關閉電源，希望對像我一樣使用筆記型電腦，苦於無法手動關閉螢幕電源的使用者有些幫助。 程式並不長只是呼叫幾個 API 而已，但是仍然不完美，希望可以改成按下某個快速鍵就可以自動關閉螢幕，如果各位前輩先進有空不妨把他拿來當作練習ㄅ ^^ void __fastcall TForm1::FormActivate(TObject *Sender) { long gettime; bool getactive; SystemParametersInfo(SPI_GETPOWEROFFACTIVE,getactive,0,0); SystemParametersInfo(SPI_SETPOWEROFFACTIVE,true,0,0); SystemParametersInfo(SPI_GETPOWEROFFTIMEOUT,gettime,0,0); SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT,1,0,0); Sleep(2000); SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT,gettime,0,0); SystemParametersInfo(SPI_SETPOWEROFFACTIVE,getactive,0,0); Close(); }

附加檔案：31728_克難版.zip

我能瞭解你開發的出發點 不過我也不太清楚是否現在螢幕真的不會關閉 像我的ASUS NB (A1000系列，兩年多），螢幕一闔上就會關閉螢幕說 就算真的不行，只要按下 Fn F7 就能手動關閉LCD螢幕，很方便呢 所以這程式就比較在此無用武之地了...只是還是感謝你的開發哦！

引言: 我能瞭解你開發的出發點 不過我也不太清楚是否現在螢幕真的不會關閉 像我的ASUS NB (A1000系列，兩年多），螢幕一闔上就會關閉螢幕說 就算真的不行，只要按下 Fn F7 就能手動關閉LCD螢幕，很方便呢 所以這程式就比較在此無用武之地了...只是還是感謝你的開發哦！

謝謝喔 < >，開發 ... 沒有啦，隨便寫寫而已，本來是自己用的，後來發現很多朋友都和我的情形相同也就是螢幕沒有真正的關閉電源，也就把他放上來啦， >，各位先進朋友們也歡迎上來說說你們的情形和建議ㄅ < > 發表人 -

感謝大大的分享< > 找了好久才找到這個程式< > 不過，雖然小弟看不懂這種程式的內容，但還是覺得很方便呢 因為小弟的NB 也是沒有可直接關閉螢幕電源的按鍵 可是，小弟斗膽請問，有無辦法在關閉螢幕之後，不要滑鼠一動就又打開嚕< > 如果是可以設定再次啟動鍵就更好了< >

請參考小弟另篇文章：    http://delphi.ktop.com.tw/topic.php?topic_id=32218    小弟已經很久不碰 BCB 囉，改走 JAVA 路線，所以可能也沒辦法給你太大的幫助，不過印象中有種作法，一種是直接下命令關閉螢幕，一種是呼叫待機的 API，這邊是呼叫待機的API所以滑鼠一動就會打開螢幕了，你可以參考小弟的另一篇，那邊有快速鍵的設定方法，另外再找到命令關閉螢幕的方式（網站上也有，不過我忘記怎弄了），當作練習，相信遇到問題能自己寫程式解決最快樂了，加油吧！ ~ 學得越多，懂得越少 ~