掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他ウィンドウのボタンなどからキャプションを抜き出すには？ (ID：8018)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Win98 では以下のようにしてうまくいきました。 function GetClassName(Handle:HWND):string; var p:PChar; L:integer; begin result := 'Error'; GetMem(p,100); L := Windows.GetClassName(Handle,p,100); if L>0 then SetString(result,p,L); FreeMem(p); end; function GetWinText(Handle:HWND):string; var p:PChar; L:integer; begin result := 'Error'; L := SendMessage(Handle,WM_GETTEXTLENGTH,0,0); GetMem(p,L+1); L := SendMessage(Handle,WM_GETTEXT,WParam(L+1),LParam(p)); if L>0 then SetString(result,p,L); FreeMem(p); end; procedure TForm1.Button1Click(Sender: TObject); var hMemo,hEdit:HWND; begin hMemo := FindWindow('Notepad',nil); hEdit := GetWindow(hMemo,GW_CHILD); if (hEdit=0) then exit; while UpperCase(GetClassName(hEdit)) <> 'EDIT' do hEdit := GetWindow(hEdit,GW_HWNDNEXT); Memo1.Lines.Text := GetWinText(hEdit); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.