NotePad に文字を表示するには？ (ID:36203)

名前

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

本文 過去ログからフォームにボタンを貼り付けて以下のように作ったのですが NotePadを起動して実行しましたが。 フォーカスはあたっているようですが、 何も表示されませんでした。 どうしてでしょうか？ 環境は WindowsVista delphi2007 です。 procedure TForm1.Button2Click(Sender: TObject); var NOTEEDIT :HWND; begin NOTEEDIT:=FindWindow('Notepad',nil); BringWindowToTop(NOTEEDIT); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event(Ord('A'), 0, 0, 0); keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); end;