メモ帳の最終行にカーソル

解決

Ｗ 2008-12-02 23:46:10 No: 32758

ShellExecuteでメモ帳を起動しているのですが、開いたメモ帳の
最終行にカーソルをもっていくにはどうすればいいでしょうか？

みんみん 2008-12-03 06:37:24 No: 32759

こんな感じか？

procedure TForm1.Button1Click(Sender: TObject);
var
  hMemo, hEdit: HWND;
  TxtLen :integer;
begin
  hMemo :=FindWindow('Notepad', nil);
  if hMemo <> 0 then
  begin
    hEdit :=FindWindowEx(hMemo, 0, 'Edit', nil);
    if hEdit <> 0 then
    begin
      //文字列長を取得
      TxtLen :=SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0);
      //キャレットを最後尾に移動
      SendMessage(hEdit, EM_SETSEL, TxtLen, TxtLen);
      //キャレットが見える位置までスクロール
      SendMessage(hEdit, EM_SCROLLCARET, 0, 0);
    end;
  end;
end;

W 2008-12-07 01:07:14 No: 32760

実装できました。
ありがとうございます