Delphi 完全控制桌面實作：自訂殼層替代、工作列模擬與系統熱鍵攔截

核心概念：桌面替代方案

透過建立全螢幕無框線、永遠置頂的表單覆蓋原始桌面，並自行繪製背景、模擬工作列/開始功能表，達到「完全控制桌面」效果。常見於資訊看板、公開查詢終端機、考勤系統等專用場景。

表單屬性設定

背景圖片設定

• 放置 TImage (Image1)，Align = alClient、Stretch = True，載入自訂壁紙。
• 將 Image1 的 OnMouseMove 指向 Form1 的 OnMouseMove，確保滑鼠移動事件不被遮擋。

攔截系統熱鍵

procedure TForm1.FormCreate(Sender: TObject);
var
  Tep: Integer;
begin
  Tep := 0;
  // 停用快速工作切換
  SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Tep, 0);
  // 模擬螢幕保護程式執行中，阻擋 Ctrl+Alt+Del 等
  SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, 1, @Tep, 0);
end;

警告：此手法屬「駭客技巧」，現代 Windows (Vista+) 已大幅限制，可能導致系統不穩定，僅供教學參考。

動態顯示/隱藏工作列

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  // 滑鼠移至底部 30 像素區域顯示工作列
  if Y > Form1.Height - 30 then begin
    Form2.Left := Form1.Left;
    Form2.Top := Form1.Height - 30;
    Form2.Width := Form1.Width;
    Form2.Height := 30;
    Form2.Show;
  end else
    Form2.Hide;
end;

開始按鈕彈出功能表

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Form2.Left, Form2.Top + Form2.Height); // 彈出在工作列上方
end;

退出應用程式

procedure TForm2.MenuItemExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

關鍵技術總結

• 視覺欺騙：非真正取代 Explorer Shell，而是覆蓋式模擬。
• 系統參數修改：SystemParametersInfo 操作全域系統行為，影響範圍廣，需謹慎。
• 事件透傳：Image 控件需轉發 MouseMove 給表單。
• 現代替代方案：Windows 10/11 建議使用 指派存取模式 或 Kiosk 瀏覽器模式，較穩定安全。

總結

此範例展示 Delphi 操作底層視窗與系統參數的能力，適合特定專用裝置開發。實際部署請評估相容性與安全性，優先考慮官方 Kiosk 解決方案。