有寫過 Noninteractive Service 的人都應該知道, 只要在該Service內呼叫 MessageBox(), Service 就會被咬住, 不但MessageBox秀不出來, 還會造成 Service 無法正常執行.     但是若在你的Service內有需要跳出一個錯誤訊息給使用者看時該怎麼辦呢?    下面這個小技巧可以讓你達到這個需求, 其實就是設定行程的Window Station和Desktop

    var
  hWinstaSave: HWINSTA; 
  hDeskSave: HDESK; 
  hWinstaUser: HWINSTA; 
  hDeskUser: HDESK;      ...
  ...
  ...      if 發生錯誤 then
  begin
    // 開啟 Service 所在的 Window Station, 並保存之.
    hWinstaSave := GetProcessWindowStation();
    // 開啟 Service 所在的 Desktop, 並保存之.
    hDeskSave := GetThreadDesktop(GetCurrentThreadId);        // 開啟目前使用者的 Window Station
    hWinstaUser := OpenWindowStation('WinSta0', FALSE, MAXIMUM_ALLOWED);
    if (hWinstaUser = 0) then
    begin
      // 開啟目前使用者的 Window Station 失敗
      Exit;
    end;        // 設定 Service 的 Window Station 為目前使用者的 Window Station
    SetProcessWindowStation(hWinstaUser);        // 開啟目前使用者的預設 Desktop
    hDeskUser := OpenDesktop('Default', 0, FALSE, MAXIMUM_ALLOWED);
    if (hDeskUser = 0) then
    begin
      // 開啟失敗, 還原 Service 的 Window Station.
      SetProcessWindowStation(hWinstaSave);
      CloseWindowStation(hWinstaUser);
      Exit;
    end;        // 設定 Service 的 Desktop 為目前使用者的 Desktop
    SetThreadDesktop(hDeskUser);        // 顯示 Dialog.
    MessageBox(GetForegroundWindow, 'Test Dialog', 'MessageBox', MB_OK);        // 還原 Service 的 Window Station, Desktop.
    SetThreadDesktop(hDeskSave);
    SetProcessWindowStation(hWinstaSave);
    CloseDesktop(hDeskUser);
    CloseWindowStation(hWinstaUser);
  end;