掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
既定のブラウザのアドレス部に指定した文字列を送り移動させるには？ (ID:27834)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでOK procedure TForm1.Button1Click(Sender: TObject); var h: HWND; begin h := FindWindow(PChar('IEFrame'), nil); h := FindWindowEx(h, 0, PChar('WorkerW'), nil); h := FindWindowEx(h, 0, PChar('ReBarWindow32'), nil); h := FindWindowEx(h, 0, PChar('ComboBoxEx32'), nil); SendMessage(h, WM_SETTEXT, 0, lParam(PChar(Edit1.Text))); h := FindWindowEx(h, 0, PChar('ComboBox'), nil); h := FindWindowEx(h, 0, PChar('Edit'), nil); SendMessage(h, WM_KEYDOWN, VK_RETURN, 0); SendMessage(h, WM_KEYUP, VK_RETURN, 0); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.