[delphi-users:5172] 最前面にいるアプリのウィンドウのタイトル取得

[OE]

[開発環境 XE7 Windows7(64)]
[クライアント Windows10(64)]
[VCLフォームアプリケーション]

こんにちは、OEです。

最前面にいるアプリの、ウィンドウのタイトルを取得したいです。
どうやれば実現できるでしょうか。


ひとまず、Mr.XRAYさんのサイト
「03_起動中のアプリケーションのリスト ( 1 )　
ウィンドウのタイトル」にて、
起動中一覧の取得方法まではわかりました。
http://mrxray.on.coocan.jp/Delphi/plSamples/320_AppList.htm#03

しかし、個々に最前面にいるかどうかのチェック手法までは、
見つけることができませんでした。


どなたかアドバイス頂けると助かります。
よろしくお願いします。



MLホームページ: https://www.freeml.com/delphi-users

----------------------------------------------------------------------
スマホアプリ版で100万ダウンロード突破の
「キャプテン翼ZERO～決めろ！ミラクルシュート～」
HTML5ゲームプラットフォーム「ゲソてん byGMO」にて、
PCブラウザ版を好評配信中！
https://gesoten.com/games/genre/sports/tsubasa-zero
------------------------------------------------------[freeml byGMO]--

あなたの街のチラシがいつでも無料で見放題！
チラシをクリックしてチラシが拡大されたらポイントゲット♪
まずはかんたん登録♪　-ポイントタウン-
https://www.pointtown.com/ptu/rd.cgi?cid=8912
----------------------------------------------------------------------

[hosokawa]

OE さん
こんにちは。

↓こんな感じで取得できませんか？

---------------------------------------------------------------------
uses
System.SysUtils, Winapi.Windows;

function GetForegroundWindowCaption: String;
var
Wnd:HWND;
Caption: String;
Len: Integer;
begin
Wnd := GetForegroundWindow;

SetLength(Caption, $100);
Len := GetWindowText(iWnd, PChar(oCaption), Length(oCaption) - 1);
SetLength(Caption, Len);

Result := Caption.Trim;
end;
---------------------------------------------------------------------

Regards,
HOSOKAWA Jun
Application Division 3 Manager
embarcadero MVP for Delphi

[S/G] SERIALGAMES Inc.
TEL: 03-5812-4368
FAX: 03-5812-0970

---------------------------------------------------------------
このメールには、本来の宛先の方のみに限定された機密情報が含まれて
いる場合がございます。お心あたりのない場合は、送信者にご連絡のうえ、
このメールを削除してくださいますようお願い申し上げます。
PLEASE READ：This e-mail is confidential and intended for
the named recipient only. If you are not an intended recipient,
please notify the sender and delete this e-mail.
---------------------------------------------------------------

[hosokawa]

細川です。

訂正

×：oCaption
○：Caption

コピってきた時の変数名のままでした

---------------------------------------------------------------------
uses
System.SysUtils, Winapi.Windows;

function GetForegroundWindowCaption: String;
var
Wnd:HWND;
Caption: String;
Len: Integer;
begin
Wnd := GetForegroundWindow;

SetLength(Caption, $100);

Len := GetWindowText(iWnd, PChar(Caption), Length(Caption) - 1);

SetLength(Caption, Len);

Result := Caption.Trim;
end;
---------------------------------------------------------------------

[OE]

細川さん

できました。

GetForegroundWindow で取得できるのですね。

ありがとうございました。