他アプリのＦｏｒｍ２のウインドウタイトル取得方法 (ID:33796)

名前

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

本文 IEのタブみたいなことなのかな。 だとするとEnumChildWindows APIを使うのが良いのかな。 function WindowTextGet(hHandle: HWND): String; var li_Len: Integer; lp_Text: PChar; begin Result := ''; li_Len := GetWindowTextLength(hHandle) + 1; if (li_Len > 0) then begin lp_Text := AllocMem(li_Len); try GetWindowText(hHandle, lp_Text, li_Len); Result := String(lp_Text); finally FreeMem(lp_Text); end; end; end; function EnumChildWindowsProc(hHandle: HWND; lParam: LPARAM): Boolean; stdcall; begin if (WindowTextGet(hHandle) = '新規登録') then begin HWND(Pointer(lParam)^) := hHandle; Result := False; end else begin Result := True; end; end; function GetWindow: HWND; begin Result := 0; //ソフト名を'Application1'と仮定して EnumChildWindows(FindWindow(nil, 'Application1'), @EnumChildWindowsProc, LPARAM(@Result)); end;