二重起動時に元のEXEを元のサイズに戻すには？ (ID:117065)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6で作成されたEXEと仮定してコードを書きます。 使い方はA.exeのウィンドウキャプションを渡して下さい。 各APIの宣言に関しては御自分でお調べ下さい。 また、VB6のEXEではない場合、FindWindowの第一引数のクラス名を 省略するか、別の文字列に変更して下さい。 Public Sub PrevWindowToFront(ByVal strWindowCaption As String) Dim lngHwnd As Long lngHwnd = 0 lngHwnd = FindWindow("ThunderRT6FormDC", strWindowCaption) If lngHwnd <> 0 Then ' メイン・ウィンドウが最小化されていれば元に戻す If IsIconic(lngHwnd) Then Call ShowWindowAsync(lngHwnd, SW_RESTORE) End If ' メイン・ウィンドウを最前面に表示する Call SetForegroundWindow(lngHwnd) End If End Sub