GetWindowRectやDwmGetWindowAttributeでフォームの座標やサイズが取得できないことがある

Question

前提・実現したいこと

環境：Windows10Home、VisualStudio2017(VB.NET)
以下のソースで、通常であればrect1とrect2にそれぞれ座標と画面サイズが入るのですが、一部のソフト(TeraPad)において取得値が座標が-100、サイズが0となります。
正しく取得できない原因または取得方法について教えてください。

該当のソースコード

'はじめの宣言
Public Class Form1
    Inherits Form

    Enum DWMWINDOWATTRIBUTE As UInteger
        NCRenderingEnabled = 1
        NCRenderingPolicy
        TransitionsForceDisabled
        AllowNCPaint
        CaptionButtonBounds
        NonClientRtlLayout
        ForceIconicRepresentation
        Flip3DPolicy
        ExtendedFrameBounds
        HasIconicBitmap
        DisallowPeek
        ExcludedFromPeek
        Cloak
        Cloaked
        FreezeRepresentation
    End Enum

    <StructLayout(LayoutKind.Sequential)>
    Private Structure RECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure

    Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Boolean
    Private Declare Function DwmGetWindowAttribute Lib "dwmapi.dll" (ByVal hwnd As IntPtr, ByVal dwAttribute As DWMWINDOWATTRIBUTE, ByRef pvAttribute As RECT, ByVal cbAttribute As Integer) As Integer


'該当箇所
System.Diagnostics.Process()
Dim p As System.Diagnostics.Process
For Each p In System.Diagnostics.Process.GetProcesses()
        Dim rect1 = New RECT
        Form1.GetWindowRect(p.MainWindowHandle, rect1)
        Dim rect2 = New RECT
        Form1.DwmGetWindowAttribute(p.MainWindowHandle, DWMWINDOWATTRIBUTE.ExtendedFrameBounds, rect2, Marshal.SizeOf(rect2))
        'ここで何かやる
Next

Answer 1

ほかのソフトでうまく動いているとしたら、コードに問題はないということだと思います。どうなっているのか Spy++ で調べてみてください。

Comments

[Zuishin]

もしかしたら、TeraPad のメインウィンドウは不可視で、見えているのはサブウィンドウなのかもしれません。

[coffeeumee]

確認したところ、SPY++で確認できる実態は別のプロセスで動いていました。
残念ながらSystem.Diagnostics.Process.GetProcesses()で取得できる一覧にはMainWindowHandleでチェックした限りでは実態プロセスは見つけられませんでした。
その後不可視プロセスを辿ってみましたがやはり座標は取得できませんでした。
このままだと同じ仕組みのソフトでも同様の現象が起きそうで気持ち悪いのですが、とりあえず現状では取得できないということで諦めます。ありがとうございました。
参考にした資料
http://pinvoke.net/default.aspx/user32/EnumChildWindows.html
https://knowledge.reontosanta.com/archives/990

Answer 2

GetProcesses()でウィンドウタイトルを取得し、それに対してFindWindow()を使うことで取得できました。

Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Boolean
Private Declare Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Private Structure RECT
    Public Left As Integer
    Public Top As Integer
    Public Right As Integer
    Public Bottom As Integer
End Structure



Private Sub GetRectangle()

    '全てのプロセスを列挙し、ウィンドウタイトルを取得する。
    Dim p As System.Diagnostics.Process

    For Each p In System.Diagnostics.Process.GetProcesses()
        If p.MainWindowTitle.Length <> 0 Then

            Dim results As String = p.MainWindowTitle
            list_title.Items.Add(results)


        End If


    Next



    'ウィンドウタイトルからハンドルを取得し、ウィンドウ位置、サイズを取得する。
    Dim hwnd As IntPtr = FindWindow(vbNullString, list_title.SelectedItem)
    Dim lpRect As RECT
    
    GetWindowRect(hwnd, lpRect)
    
    Console.WriteLine("PosX:{0}, PosY:{1}, SizeX:{2}, SizeY:{3}", lpRect.Left, lpRect.Top, lpRect.Right - lpRect.Left, lpRect.Bottom - lpRect.Top)


End Sub

TeraPadにおいて、p.MainWindowHandleで得たハンドルと上記コード（使っていたものから抜粋/整形しただけなので動くかは未検証です）で得たハンドルが異なっていました。原因は分かりませんが…

Comments

[Zuishin]

TeraPad を Wikipedia で調べると Delphi で作られていると書かれていますが、Delphi の場合、メインウィンドウはデフォルトで非表示です。

https://support.embarcadero.com/article/35956/
> TApplication は、Delphi アプリケーションのベースです。メインフォームは、TApplication の MainForm プロパティによって示され、これは Run メソッドによって表示されます。実際このフォームは、非表示のアプリケーションウィンドウの子フォームです。アプリケーションウィンドウは、Windows95 ならばタスクバーに表示されるアイコンです。

なので、普通の作り方をしているなら、ハンドルが違うのは仕様です。

[lemongrass]

メインウィンドウが非表示…たしかにそれだとハンドルは違う値になりますね。
子フォームということはFindWindowExやEnumChildWindowsで取れるのかもしれませんね。

（追記）
…と思ったらEnumChildWindowsは検証済みでしたか…こちらでだめだと厳しそうです。