FiveTech Software tech support forums

Natter,

You could ty to find the browser window using FindWindow() and then do a SendMessage( hWndBrowser, WM_COPY, 0, 0 )

... 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1140 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\MSGBAR.PRG => TMSGBAR:LBUTTONDOWN( 558 ) Called from: .\source\classes\CONTROL.PRG => TMSGBAR:HANDLEEVENT( ...

... 0 )<-(b)VFAMANARQ( 141 )<-TBUTTONBMP:CLICK( 179 )<-TBUTTON:HANDLEEVENT( 1755 )<-TBUTTONBMP:HANDLEEVENT( 261 )<-_FWH( 3546 )<-SENDMESSAGE( 0 )<-TDIALOG:COMMAND( 425 )<-TWINDOW:HANDLEEVENT( 0 )<-TDIALOG:HANDLEEVENT( 923 )<-DIALOGBOX( 0 )<-TDIALOG:ACTIVATE( 305 ...

... .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1781 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG ...

... RGB( 255, 255, 225 ) OF Self then can I change the color of title or text ? where is the function CreateToolTipWNew I allready tried to make also SendMessage(::hwnd, TTM_SETTIPBKCOLOR, CLR_HRED, 0) to make a test but not run ok then If it is ::lballoon the text is blue if ::lbaloon = .f. the text ...

Since I need to get the text from someone else's application, the Getwindowtext(hWn) function will return an empty value.
I solved this problem using clipboard

SendMessage(hWn, EM_SETSEL, 0, -1)
SendMessage(hWn, WM_COPY, 0, 0)
buf:=oClp:GetText()

... (class Edit). There is text in this field. I know the pointer of this field and want to get its contents #DEFINE WM_GETTEXT 13 buf:=space(200) SendMessage(hWn, WM_GETTEXT, 200, @buf) As a result, I get an empty value. What am I wrong about ? Windows 10, FWH 18.06

... Called from TBUTTON:HANDLEEVENT(1755) in .\source\classes\CONTROL.PRG Called from _FWH(3513) in .\source\classes\WINDOW.PRG Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(433) in .\source\classes\DIALOG.PRG Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(1136) ...

... => TBUTTON:HANDLEEVENT( 1761 ) 000008 Called from: .\source\classes\WINDOW.PRG => _FWH( 3951 ) 000009 Called from: => SENDMESSAGE( 0 ) 000010 Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 439 ) 000011 Called from: => TWINDOW:HANDLEEVENT( 0 ) 000012 ...

... .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1755 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG ...

... (WM_CAP_START + 41) METHOD Format() CLASS TWebCam // César E. Lozada, cesarlozada@hotmail.com If ::hWebCam <> NIL .and. ::isConnected SendMessage( ::hWebCam, WM_CAP_DLG_VIDEOFORMAT, 0, 0 ) EndIf Return NIL Saludos! Eduardo Borondón Muñiz

... From all of them, the WM_COPYDATA seems the simplest way to go :-) SendMessage( hWndToReceiveTheMessage, WM_COPYDATA, hWndSender, pPointerToACOPYDATASTRUCT structure ) --> value returned from hWndToReceiveTheMessage

... Called from: .\_a_say_dinamico.prg => TDSAY:HANDLEEVENT( 189 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3368 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 590 ) Called from: .\source\classes\WINDOW.PRG => TDSAY:SENDMSG( 0 ) ...

... Called from TBUTTONBMP:HANDLEEVENT(261) in .\source\classes\BUTTONB.PRG Called from _FWH(3348) in .\source\classes\WINDOW.PRG Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(424) in .\source\classes\DIALOG.PRG Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(922) ...

Antonino,

FWH REGetOleInterface() basically does this (what you already posted in the provided example):

SendMessage( hEdit, EM_GETOLEINTERFACE, 0, ( LPARAM ) &tr_code );

IMO, in the example that you have posted you have everything you need to implement it