掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キャレットを持っているコンポーネントのハンドルを取得するには？ (ID：16544)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いい加減ですいません。 今度はメモ帳で試しました。 procedure TForm1.Timer1Timer(Sender: TObject); var ThisWH, selfID, wh, otherID, prcID, wd: HWND; buf: array[0..1000] of char; begin Timer1.Enabled := false; selfID := GetCurrentThreadID; wh := GetForegroundWindow; otherID := GetWindowThreadProcessID(wh, @prcID); if AttachThreadInput(otherID, selfID, True) then begin SetForegroundWindow(wh); ThisWH := GetFocus; AttachThreadInput(otherID, selfID, False); SendMessage(ThisWH, WM_GETTEXT, 1000, Integer(@buf[0])); Edit1.Text := string(buf); end else Edit1.Text := ''; Timer1.Enabled := true; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.