掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メモ帳から文字列を取得して表示するには？ (ID：10415)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
わたしの D5 では Windows.pas で function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; type LRESULT = Longint; となっていますので SendMessage() の戻り値は LongInt です。 ワードパッドからテキストを取得し、それを RichEdit1 に表示し、キャレットを 末尾にもっていって、スクロールする例をあげておきます。 procedure TForm1.Button1Click(Sender: TObject); var hRichEdit:HWND; Ret:LongInt; s:string; begin hRichEdit := FindWindow('WordPadClass',nil); hRichEdit := FindWindowEx(hRichEdit,0,'RichEdit20W',nil); if hRichEdit = 0 then exit; Ret := SendMessage(hRichEdit,WM_GETTEXTLENGTH,0,0); s := StringOfChar(#0,Ret+1); Ret := SendMessage(hRichEdit,WM_GETTEXT,Ret,LParam(PChar(s))); SetLength(s,Ret); RichEdit1.Text := s; RichEdit1.SelStart := Length(s); Richedit1.Perform(EM_SCROLLCARET,0,0); RichEdit1.SetFocus; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.