■33588 / inTopicNo.1) |
フォームを最背面に表示できない |
□投稿者/ ふなー (1回)-(2009/03/05(Thu) 09:39:37)
|
分類:[.NET 全般]
いつも参考にさせていただいています。
フォームを最背面に表示するために
Dim hProgramManagerHandle As System.IntPtr = FindWindow(Nothing, "Program Manager") If Not hProgramManagerHandle.Equals(System.IntPtr.Zero) Then SetParent(Me.Handle, hProgramManagerHandle) End If
このコードを使用しています。これ自体はうまく動くのですが インストーラーを作ってインストールしたのちに1回目に起動すると フォームが全く表示されないときがあります。 (他のプログラムを開くとその後ろに出てくる)
http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200604/200604_06040047.html
を見てみると起動時にTopMostにしてやる必要があるとのことだったので me.topmost = true にしてみたりSetForegroundWindow(Me.Handle)を用いて 見ましたがうまくいきません。
なにか良い方法があるでしょうか? よろしくお願いいたします。
|
|