<HTML>
Hi Phil. try this. I use this to get info from another application and use
this code.<br><br>Jeremy<br><br><font style="font-family: tahoma; font-size:
10pt;"><div> function
GetStatusBarText: string;<br>var<br> PMM: TProcessMemMgr;<br>
NumberOfPanels, Len: Integer;<br> PrcBuf: PChar;<br> hWindow,
hStatusBarHandle: HWND;<br> PanelNumber : integer;<br>begin<br><br>
PanelNumber:=2;<br><br> hWindow := FindWindow('TfmMain',
nil);<br> if hWindow = 0 then Exit;<br> hStatusBarHandle :=
FindWindowEx(hWindow, 0, 'TStatusbar', nil);<br><br> if
hStatusBarHandle = 0 then Exit;<br> PMM :=
CreateProcessMemMgrForWnd(hStatusBarHandle);<br> try<br>
NumberOfPanels := SendMessage(hStatusBarHandle,
SB_GETPARTS, 0, 0);<br> if PanelNumber < NumberOfPanels
then<br> begin<br> Len :=
LOWORD(SendMessage(hStatusBarHandle, SB_GETTEXTLENGTH, PanelNumber, 0));<br>
if Len > 0 then<br>
begin<br>
PrcBuf := PMM.AllocMem(Len +
1);<br>
SendMessage(hStatusBarHandle, SB_GETTEXT, PanelNumber, Longint(PrcBuf));<br>
Result := PMM.ReadStr(PrcBuf);<br>
PMM.FreeMem(PrcBuf);<br>
end<br> else<br>
begin<br>
Result := '';<br>
end;<br> end;<br>
finally<br> PMM.Free;<br> end;<br>end;</div>
<div> </div></font>
<br><blockquote style="border-left: 2px solid rgb(0, 0, 0); padding-right:
0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
-----Original Message-----<br>
From: "Phil Scadden" <p.scadden@gns.cri.nz><br>
To: delphi@delphi.org.nz<br>
Date: Mon, 30 Jul 2007 14:57:32 +1200<br>
Subject: [DUG] Pulling status bar text off another application<br>
<br>
<div style="font-family: monospace,courier new,courier;">
A webapp running in IE put text in the status bar that I would dearly
like<br>
to snaffle into another running application. Statusbar I think is a
wincontrol<br>
so could be possible. Anyone with bright ideas on discovering it?<br>
<br>
----------------------------------------------------------<br>
Phil Scadden, GNS Science Ltd<br>
764 Cumberland St, Private Bag 1930, Dunedin, New Zealand<br>
Ph +64 3 4799663, fax +64 3 477 5232<br>
<br>
_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: delphi@delphi.org.nz<br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi"
target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to delphi-request@delphi.org.nz with Subject:
unsubscribe<br>
</div>
</blockquote>
</HTML>