他のアプリケーションでキーが押されたことにするには (ID:2850)

名前

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

本文 次のようにようにしたのですがうまくいきませんでした。 どこがいけないのでしょうか？ procedure TForm1.Button1Click(Sender: TObject); var Si: TStartupInfo; Pi: TProcessInformation; WinHnd: HWND; begin GetStartupInfo(Si); CreateProcess(nil, PChar('C:\WINDOWS\NOTEPAD.EXE'), nil, nil, false, CREATE_DEFAULT_ERROR_MODE, nil, PChar(GetCurrentDir), Si, Pi); WaitForInputIdle(Pi.hProcess, INFINITE); WinHnd := FindWindow('NOTEPAD',nil); SetForegroundWindow(WinHnd); SendMessage(WinHnd, WM_KEYDOWN, VK_F5, 0); end;