掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他アプリのタブのテキスト取得 (ID:29958)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんばんわ。 turbodelphi+Winxpの環境です。 Lhaplusの環境設定画面のタブのテキストを取得したいのです。 function GetTabText(hWindow:HWND;indx:integer):string; var tci: TTCItem; PC:PChar; begin GetMem(PC,50); tci.mask := TCIF_TEXT; tci.pszText := PC; tci.cchTextMax := 50; SendMessage(hWindow,TCM_GETITEM,indx,LPARAM(@tci)); SetString(result,PC,lstrlen(PC)); FreeMem(PC); end; procedure TForm1.BitBtn1Click(Sender: TObject); Var hwind : HWND; s : String; begin hwind := FindWindow(nil,'Lhaplus'); s := GetTabText(hwind,0); if s <> '' then Begin ShowMessage(s); End; end; こうコードだと０番目のタブのテキストが取得できるはずなのですが 空白文字が返ってきています。 正直どこが悪いのか不明なのですが、どなたか御教授ねがいないでしょうか？ 宜しくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.