Delphi 一鍵啟動螢幕保護程式：SendMessage 實作

高安全性程式需在有人靠近時立即啟動螢幕保護，但 Windows 預設需閒置一段時間才啟動，無法達到即時保護。直接發送系統訊息可強制啟動：

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

將此語句放入選單項目並設定熱鍵，下次按一個鍵即可保護資料。