掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
別アプリのステータスバーの文字列を取得するには？ (ID：12286)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
にしのさん ものしりですね すげぇ ほんと表示されるよ。 ワクワクしたから、ついカキカキしてためしてしまった procedure TForm1.Button1Click(Sender: TObject); const SB_GETTEXT = WM_USER+2; SB_GETTEXTLENGTH = WM_USER+3; SB_GETPARTS = WM_USER+6; SB_ISSIMPLE = WM_USER+14; var Buffer : PChar; Handle, i , PanelCount ,BufferSize: integer; s : string; SimpleMode : Boolean; begin s := ''; Handle := StatusBar1.Handle; SimpleMode := (SendMessage(Handle,SB_ISSIMPLE,0,0)<>0); PanelCount := SendMessage(Handle,SB_GETPARTS,0,0); for i := 0 to PanelCount-1 do begin BufferSize := SendMessage(Handle,SB_GETTEXTLENGTH,i,0); GetMem(Buffer, BufferSize+1); try SendMessage(Handle,SB_GETTEXT,i,Integer(Buffer)); Buffer[BufferSize] := Char(0); // 念のため s := s + Buffer + #13+#10; finally FreeMem(Buffer); end; if (SimpleMode) then Break; end; ShowMessage(s); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.