定時開關機及空閑關機在高校圖書館的應用

周昌海 樊玲

摘 要：針對圖書館公用電腦開機后長時間無人使用甚至24 h處于開機狀態的問題，提出了通過BIOS設置和Delphi編程，實現計算機每天無人值守條件下定時開關機及空閑關機功能，是對節能減排、低碳校園積極響應，在上百臺公用電腦中實際運行效果非常良好。

關鍵詞：圖書館 定時開關機 空閑關機 BIOS Delphi2010

中圖分類號：C931.9 文獻標識碼：A 文章編號：1674-098X（2015）03（c）-0228-01

圖書館作為大學的文獻中心和第二課堂，是大學生利用數字化網絡技術獲取課本外知識的重要場所。現在的圖書館，公共區域的電腦，一般都有近百臺甚至數百臺。很多電腦每天開機后很少有人使用，甚至24 h開著機，每年的耗電是驚人的。管理人員因計算機分布在不同樓層，數量多，常在下班時直接給所有計算機強行拉閘斷電，也常常造成計算機硬盤壞掉或者Window系統故障，無法再開機。

該文針對這一問題，將計算機BIOS定時開機功能和Delphi編程二者配合使用，完美地解決了這個問題。

1 設計思路

如圖1所示定時開關機框圖，通過計算機的BIOS，設置每天定時開機時間；通過Delphi2010編程，實現每天定時關機和空閑關機目標。何時關機，空閑多久關機，是否啟用空閑關機，都可以隨時進行修改。

需要指出的是，Windows自身有定時關機和空閑關機的功能，但實際使用過程中，穩定性不好，偶爾會發生定時關機和空閑關機沒有執行的情況。相比較而言，通過Delphi編程所實現的定時關機和空閑關機，界面簡潔，操作簡單，經過半年的使用，沒有發生未執行關機任務的案例。

2 實現過程

2.1 定時開機的設置方法

以聯想啟天M7150為例，開機后按F1進入BIOS，按照以下步驟進行設置。

Power→After Power Loss，該項設置為Last State。這個設置的含義是，如果突然停電后再來電，計算機恢復到停電前的狀態：若停電前是開機的，那么來電后自動開機；如果停電前是關機狀態，那么來電后計算機不開機。

Power→Automatic Power On→Wake up on Alarm，該項設置為“Enabled”，必須設置成Enabled，才能進行下面步驟的設置。

Power→Automatic Power On→RTC Alarm Date（Days），該項設置為“Every Day”，也就是每天定時開機；

Power→Automatic Power On→RTC Alarm Time，該項設置為“08：00：00”，意思是每天早上8點開機。

完成以上設置后，保存BIOS設置。

2.2 定時關機和空閑關機

定時關機，是讓計算機每天到了指定時間，強制關機，是為了避免計算機通宵開機而設置這一功能。

所謂空閑時間，也叫Idle time，是指計算機沒有鼠標或者鍵盤操作的時間長度，之所以要引入這個功能，是因為不少計算機開機后，一直處于無人使用狀態，白白地消耗著電能。

之所以要設計定時關機和空閑關機兩個選項，這是因為，有些公用電腦，是允許白天一直開機的，如讀報機；而閱覽室的公用電腦，數量多，無人使用一定時間時，則需要關機，以達到節能目的。但是，不管什么情況，晚上指定時間（如22：00）所有電腦都需要強行自動關機。

定時關機和空閑關機，在程序設計中，需要允許修改關機時間和空閑關機時間，以及是否啟用這些功能。本程序將這些設置參數保存在一個配置文件里面，當程序每天開機運行時會自動讀取這些參數，如果配置文件被刪除或者丟失，會載入默認參數。

按照以上思路，設計程序主界面，如圖2所示。

“設置”按鈕只用于設置關機時間和空閑關機時間以及是否啟用它，當程序運行時，會自動載入這些配置參數并按照這些參數執行。

2.3 定時關機和空閑關機部分關鍵代碼

procedure calshutdowntime；//換算關機時間

ss：=sphh.Value*60+udmm.position；

ss：=ss*60；//關機時間（秒）

sidle：=udidle.Position*60；//設定空閑時間長度（秒）

計算時間空閑時間值函數：

function Idletime： integer；//

var LInput： TLastInputInfo；

begin LInput.cbSize：=SizeOf（TL

astInputInfo）；

GetLastInputInfo（LInput）；

Result：=（GetTickCount-LInput. dwTime）div1000；//已空閑時間長度（秒）

end；

定時器Timer1代碼：

timeStamp：= DateTimeToTimeSta

mp （now（））；

i：=timestamp.Time div 1000-ss；

if i>0 then//定時關機時間到

begin

Timer1.Enabled：=false；

winexec（pansichar（‘cmd/c shutdown-s-f-t00），sw_Hide）；//定時關機時間到強行關機

end；

if idletime >=sidle then//如果空閑時間達到設定值

winexec（pansichar（'cmd/c shutdown-s-f-t00'），sw_Hide）；//空閑時間到強行關機可執行程序界面如圖3所示。

3 結論

該文的實際例子，已經在近百臺Win7計算機上驗證運行了3個月以上，定時開關機和空閑關機執行狀況穩定理想。不足之處在于，如果定時開始也能通過Delphi編程實現，那就很完美了，但由于不同機型的BIOS版本和型號有差異，目前Delphi直接讀寫實現尚有困難。

參考文獻

[1] 劉湖平.基于BIOS和Windows XP之任務計劃實現定時自動開關機[J].科技資訊，2012（16）：31

[2] 黃新革.基于Delphi的Windows 2000服務器定時關機程序[J].信息技術，2003，27（3）：72-74.