掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メモ帳から文字列を取得して表示するには？ (ID：10414)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません。中途半端なソースの提示で、よけいややこしくなってしまいますね。。。以下がその部分のソースです。クラス名などは、とりあえず****に置き換えてあります。ソース上ではきちんと書いています。 ------------------------------------------------------------------ procedure TForm1.Timer1Timer(Sender: TObject); var WND: HWND; Msg:integer; buf: array[0..8024] of char; begin //ハンドル取得 WND := FindWindow('AfxFrameOrView42', nil); WND := GetWindow(WND,GW_CHILD); WND := GetWindow(WND,GW_HWNDNEXT); WND := GetWindow(WND,GW_HWNDNEXT); WND := FindWindowEx(WND,0,'****', '****'); WND := FindWindowEx(WND,0,'RICHEDIT', nil); try Msg := SendMessage(WND,WM_GETTEXT,8160,integer(@buf)); RichEdit1.text := string(integer(@buf)); except RichEdit1.text := '取得に失敗しました'; end; end; ---------------------------------------------------------------- 以上がソースです。 タイマーを使って毎秒取得しています。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.