掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
#32770ウインドウの検索 (ID：48317)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 #32770ウインドウの検索をして、リストボックスに追加したいのですが、 うまくいきません（なにも表示されない）。 なぜでしょうか？ よろしくお願いします。 Delphi2007 Windows7Pro function EnumWindowsProcHwd(hwindow :Hwnd; lparam : LPARAM):BOOL; stdcall; var PC : PChar; Len : integer; Name : String; begin Result := False; GetMem(PC, 100); Len := GetClassName(hwindow, PC, 100); SetString(Name, PC, Len); FreeMem(PC); if Len<>0 then begin if Name ='#32770' then begin Form1.ListBox1.Items.Add(Name); Result := True; end; end; end; procedure TForm1.Enum32770Click(Sender: TObject); begin EnumWindows(@EnumWindowsProcHwd, 0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.