サービスアプリからメッセージボックスの表示

質問

表題の件ですが、サービスアプリを作成しておりメッセージを表示したいと思います。
通常のフォームアプリですと、「msgbox」でメッセージボックスを表示出来ますが、サービスアプリから同じコードを書いても何も表示されません。
「デスクトップとの対話をサービスに許可」をオンにすると、「msgbox」でメッセージを表示するタイミングで「サービスがメッセージ出そうとしてますが表示しますか？」という感じのダイアログが出て、「OK」を押すとようやくメッセージボックスが表示されます。
これでは「キャンセル」ボタンを押されるとプログラムが停止する等で実用性が無いので別の方法を探したところ、

MessageBox.Show("test", "caption", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)

で表示出来る、という方法を見つけました。
試したところ、ビルド時にエラーは出ませんが動作させてもメッセージボックスは表示されません。
「デスクトップとの対話をサービスに許可」をオン・オフどちらにしても表示されません。
6番目の「ServiceNotification」を「DefaultDesktopOnly」に変更しましたがやはり表示されません。

開発ツールは「Microsoft Visual Basic 2008」で動作環境は「windows7」の「Professional 64ビット」と「Enterprise 64ビット」です。この環境で動作確認後に32BitやWindows8でも動作させたいと考えております。

原因や対処法をご存知の方がおられましたら、ご教授頂けると非常に助かります。
お手数をお掛けいたしますが、よろしくお願いいたします。

回答No.1

koba0626 · ベストアンサー

これですか？↓
http://dobon.net/vb/bbs/log3-45/26935.html

お礼

ありがとうございます。
月曜日に試してみます。

補足

検索したところ、C++と思われるコードは結構見つかりましたが、VBでのコードは見つけられませんでした。

Public Declare Function WTSSendMessage Lib "wtsapi32.dll" ( _
ByVal hServer As Long, _
ByVal SessionId As Long, _
ByVal pTitle As String, _
ByVal TitleLength As Long, _
ByVal pMessage As String, _
ByVal MessageLength As Long, _
ByVal Style As Long, _
ByVal timeout As Long, _
ByRef pResponse As Long, _
ByVal bWait As Long) As Long

上記を使用していろいろ試しましたが、表示されませんでした。
もうしばらく試してみます。