PID（プロセスID）のみを持っている場合はウィンドウタイトルを取得

Question

Delphi（この場合はDelphi 7）を使用して、PID（プロセスID）からウィンドウタイトルを取得する方法を教えてください。

"Internet Explorer/Chrome"ウィンドウタイトルを取得しようとしています。これまで

マイコード：

procedure GetAllBrowserTitle; 
var 
    hProcSnap : THandle; 
    pe32   : TProcessEntry32; 
    P   : string; 
    PID   : integer; 
    ContinueLoop : BOOL; 
begin 

    try 
    hProcSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 

    if hProcSnap = INVALID_HANDLE_VALUE then exit; 

    pe32.dwSize := SizeOf(pe32); 
    ContinueLoop := Process32First(hProcSnap, pe32); 

    While (Integer(ContinueLoop) <> 0) do 
    begin 

     P := LowerCase(pe32.szExeFile); 

     if (Pos('iexplore.exe', P) > 0) Or (Pos('chrome.exe', P) > 0) then 
     begin 
     PID := pe32.th32ProcessID; 
     // Get the Window Title 
     // ??? 
     end; 

     ContinueLoop := Process32Next(hProcSnap, pe32); 
    end; 

    CloseHandle(hProcSnap); 

    except 
    end; 
end; 

一部私は知らないウィンドウタイトルを取得することです。私の研究から、すべての例では、Window HandleまたはEnumWindowコールバックを使用する必要があります。

お手数ですが、

ありがとうございました。

Answer 1

PIDを取得すると、作成したウィンドウを検出する2つの方法があります。

1. EnumWindows()を呼び出して、すべてのトップレベルウィンドウを列挙します。それに渡すコールバック関数は、GetWindowThreadProcessId()を使用して、各ウィンドウがPIDに属しているかどうかを確認できます。

2. 使用CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD)、Thread32First()、およびThread32Next()一致する各スレッドにEnumThreadWindows()を呼び出し、PIDに属しているものを探して、すべての実行中のスレッドを列挙する。

いずれの場合でも、トップレベルウィンドウのみを列挙します。ターゲットプロセスがトップレベルウィンドウの代わりに子ウィンドウを作成する場合、特に異なるプロセスの他のウィンドウにそれらの子ウィンドウをホストする意図がある場合は、＃1を使用する必要がありますが、トップレベルウィンドウのPIDは無視し、 EnumChildWindows()を使用して子ウィンドウを列挙し、代わりに子ウィンドウでGetWindowThreadProcessId()を使用します。