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

> VB.NETから IsIconic-API を呼ぶには
> Private Declare Auto Function IsIconic Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
> なんてな宣言しとけばおっけぃなんですが、C#からだと...えーと、ふぉろーよろしく > だれぞ

こんなんでいいのかな。
VBおんちなのでC#版です。VB版だれぞよろ。

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;

public class EnumWindows {

  // P/InvokeによるIsIconic召喚の呪文
  [DllImport("user32.dll")]
  [return: MarshalAs(UnmanagedType.Bool)]
  static extern bool IsIconic(IntPtr hWnd);

  static void Main() {
    // プロセスを列挙して
    foreach (Process p in Process.GetProcesses()) {
      // MainWindowHandleを持ち、かつそれが最小化されてないなら
      if (p.MainWindowHandle != IntPtr.Zero && !IsIconic(p.MainWindowHandle) ) {
        // プリントしる!
        Console.WriteLine(p.ProcessName + " : " + p.MainWindowTitle);
      }
    }
  }
}

■No32401 (επιστημη さん) に返信
> VBおんちなのでC#版です。VB版だれぞよろ。

こんなんかなー

Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices

Public Class Form1
    Private Declare Auto Function IsIconic Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListBox1.Items.Clear()
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        For Each p As Process In Process.GetProcesses
            If p.MainWindowHandle <> IntPtr.Zero AndAlso Not isiconic(p.MainWindowHandle) Then
                Me.ListBox1.Items.Add(String.Concat(p.ProcessName, " ", p.MainWindowTitle))
            End If
        Next
    End Sub
End Class


##追記：
ちなみにこのサンプルだと例えばIEなどを複数立ち上げてどちらも「最小化」以外になっていたときに１つしか表示されません。
Processの列挙ですものねー。

下記ソースで、複数表示されているＩＥやエクスプローラも画面毎に取得できました。
しかし、ダイアログや、VBで作った画面でも、form.ShowInTaskbarがFalseの場合(？)のウィンドウなどは
取得できません。
こういったフォーム（画面）はどうやったら取得できるのでしょうか。

Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
    Private Delegate Function Callback(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Integer

    ' EnumWindows
    <DllImport("user32", EntryPoint:="EnumWindows")> _
    Private Shared Function EnumWindows( _
        ByVal lpEnumFunc As Callback, _
        ByVal lParam As Integer) _
        As Integer
    End Function

    ' GetWindowText
    <DllImport("user32", EntryPoint:="GetWindowText", CharSet:=CharSet.Auto)> _
    Private Shared Function GetWindowText( _
        ByVal hWnd As IntPtr, _
        ByVal lpString As StringBuilder, _
        ByVal nMaxCount As Integer) _
        As Integer
    End Function

    ' IsWindowVisible
    <DllImport("user32", EntryPoint:="IsWindowVisible")> _
    Private Shared Function IsWindowVisible( _
        ByVal hWnd As IntPtr) _
        As Integer
    End Function


    Public Function EnumerateWindows(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Integer
        Dim sb As New StringBuilder(&H1000)
        If IsWindowVisible(hWnd) <> 0 Then
            If GetWindowText(hWnd, sb, &H1000) <> 0 Then
                Me.ListBox1.Items.Add(sb.ToString())
            End If
        End If
        Return Not 0
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.ListBox1.Items.Clear()
        ' 列挙を開始
        EnumWindows(AddressOf EnumerateWindows, 0)
    End Sub

End Class