C# と VB.NET の質問掲示板

■No52957 (todo さん) に返信
>>>プロセス一覧を取得するのに、GetObjectを使用しているのは何か理由でも？
>>探してきただけで理解しておりません。
> 
> System.Diagnostics.Processクラスが便利です。

System.Diagnostics.Processクラスと、IsZoomed関数を使用すれば簡潔に書けそうです。

ウインドウハンドルや、Windows APIの使い方についてはマニュアル等で調べておいてください。

--------


Imports System.Runtime.InteropServices

Public Class Form1
    ' WindowsAPIより、IsZoomed関数を使う
　　Declare Auto Function IsZoomed Lib "user32" Alias "IsZoomed" (ByVal hWnd As IntPtr) As Boolean
    ' ウインドウハンドルを取るためのもの
    Dim p As System.Diagnostics.Process

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' notepad.exeを起動させる
        p = System.Diagnostics.Process.Start("c:\\windows\\notepad.exe")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' notepad.exeが最大化されているかどうかを取得する
        Dim bRet As Boolean
        ' IsZoomedの引数にウインドウハンドルを指定する
        bRet = IsZoomed(p.MainWindowHandle)

        If bRet = True Then
            MessageBox.Show("最大化されています")
        Else
            MessageBox.Show("最大化されていません")
        End If
    End Sub
End Class

なんかできちゃったので。
メモ帳をすでに立ち上げた状態で試してみてください。
※GetProcessesByNameの使い方について、マニュアルを読んで確認しておいてくださいね（特にパラメータ、戻り値）
http://msdn.microsoft.com/ja-jp/library/z3w4xdc9.aspx

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' プロセス名 notepad のものを探す
        ' プロセス名によっては複数見つかることもあるので気をつけること
        For Each p As Process In Process.GetProcessesByName("notepad")

            ' notepad.exeが最大化されているかどうかを取得する
            Dim bRet As Boolean
            ' IsZoomedの引数にウインドウハンドルを指定する
            bRet = IsZoomed(p.MainWindowHandle)

            If bRet = True Then
                MessageBox.Show("最大化されています")
            Else
                MessageBox.Show("最大化されていません")
            End If

        Next

    End Sub