掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他のアプリケーションでキーが押されたことにするには (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.