掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
LazarusでFindWindowが常に0を返してしまう件について (ID：148839)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先日は大変お世話になりました。引き続き、もう１件ご相談させてください。 表記のとおり、FindWindowという関数で目当てのWindowハンドルを意図どおり に取得せず、悩んでおります。（Class名をきちんと指定しても０が返って来てしまう） いろいろと検索してみると、「効かない」と書いている方もおり、同じように悩んで いる方もいらっしゃったようです。もし解決している方がいらっしゃましたら、 お知恵をお貸しいただけないでしょうか。なにとぞよろしくお願いいたします。 ↓以下は、新規プロジェクトで試したソースです。Windowのタイトルは場面によって 変える想定なので、Class名でWIndow ハンドルを取得したいと思っています。 uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows; var Form1: TForm1; procedure TForm1.Button1Click(Sender: TObject); var H: HWND; begin H := FindWindow(nil, 'Form1'); ShowMessage(IntToStr(H)); // 正常 H := FindWindow('TForm1', nil); ShowMessage(IntToStr(H)); // なぜか０ H := FindWindowW(nil, 'Form1'); ShowMessage(IntToStr(H)); // 正常 H := FindWindowW('TForm1', nil); ShowMessage(IntToStr(H)); // なぜか０ end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.