NotePad に文字を表示するには?

解決


ライムライト  2009-11-19 09:02:21  No: 36203  IP: 192.*.*.*

過去ログからフォームにボタンを貼り付けて以下のように作ったのですが
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;

編集 削除
ライムライト  2009-11-19 13:16:47  No: 36204  IP: 192.*.*.*

すみません。
勘違いしてたみたいです。

keybd_event(Ord('A'), 0, 0, 0);
keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0);

これだけでよかったんですね。
おさわがせしました。

編集 削除