掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ShellExecuteを利用したアプリを遠隔操作する方法？ (ID：6269)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
にしの様，ありがとうございます． CreateProcessを使ってプロセスの起動，キーの送信は，多方面を検索，参照しうまくいきました！ var SI: TStartupInfo; PI: TprocessInformation; WinHnd: HWND; begin Memo1.SelectAll; Memo1.CopyToClipboard; GetStartupInfo(SI); if not CreateProcess(PChar('c:****.exe'), nil, nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI,PI) then raise Exception.Create('****.exeを起動できません'); WaitForInputIdle(Pi.hProcess, INFINITE); WinHnd := FindWindow('wgnupl32',nil); SetForegroundWindow(WinHnd); Keybd_event(VK_MENU,0,0,0); {Alt + } Keybd_event(VK_SPACE,0,0,0); {スペース +} Keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); {スペースを離す} Keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0); {Altを離す} ・・・・・ end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.