掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ShellExecute()後のフォーカスを取り戻すには (ID:45245)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>簡単そうでなかなかうまくいかないものでした・・・ アプリケーションウィンドウに対応した，Vista 対応バージョンの Delphi だと 以下のようなコードでも動作しますね． 他のバージョンの Delphi をお持ちの方への参考として． 動作確認環境は，Windows 7 U64(SP1) + Delphi 2007-R2, Delphi 2009, 2010, XE if Msg.message = WM_KEYDOWN then begin if Chr(Msg.wParam and $FF) = 'V' then begin ShellExecute(Handle, 'OPEN', PChar(Trim(Edit1.Text)), nil, nil, SW_SHOWNA); //時間は起動するアプリによっては，もっと必要な場合がある Sleep(100); SetForegroundWindow(Handle); Label1.Caption := Chr(Msg.wParam and $FF); end else if Chr(Msg.wParam and $FF) = 'Z' then begin Label1.Caption := Edit1.Text; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.