FiveTech Software tech support forums

... local aTasks := {} local cTask while hWnd != 0 #ifdef __CLIPPER__ cTask = GetModuleFileName( GetWindowWord( hWnd, GWW_HINSTANCE ) ) #else cTask = GetWindowText( hWnd ) // The above does now work :-( #endif AAdd( aTasks, cTask ) hWnd = GetWindow( hWnd, GHW_HWNDNEXT ) end Return aTasks // DLL32 ...

... HB_DYN_CTYPE_STRUCTURE_PTR Source example: cBuffer := SPACE (1024) nCopyCharacters := HMG_CallDLL ("USER32.DLL", HB_DYN_CTYPE_INT, "GetWindowText", Win_1.HANDLE, @cBuffer, 512) MsgInfo (cBuffer) also ""Callback" Syntax is not available under HMG --- i have made ...

... from: c:\fwteam\samples\crist.prg => TCWND:HANDLEEVENT( 217 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3680 ) Called from: => GETWINDOWTEXT( 0 ) Called from: .\source\function\GETTASKS.PRG => ADDTASK( 32 ) Called from: .\source\function\GETTASKS.PRG => (b)GETTASKS( 15 ...

... de identificación. He conseguido con la función : FindWindow(0, "BBVA Connect Google Chrome") recuperar el hWnd de la ventana, y con GetWindowText(hWnd) el título. Pero cómo puedo acceder al contenido de la ventana ? Por ejemplo acceder al objeto html que contiene la ventana de Chrome. ...

... App1 hGt:=FindWindowEx( hWn, 0, "Edit" , nil ) //Handle of the TGet App1 SetWindowText(hGt, "2") //changing the TGet value The GetWindowText(hGt) function determines that the TGet value has changed. However, checking in App1 doesn't see any changes. If I use TSay , then everything ...

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()

Natter,

Do it this way:

MsgInfo( GetWindowText( hWnd ) )

... == ::hWnd CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) if ValType( ::oGet:Original ) $ "CM" SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) ) endif ::oGet:Buffer = GetWindowText( ::hWnd ) ::oGet:Pos = GetCaretPos()[ 2 ] ::oGet:Assign() ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... CLASS TDBCombo local nAt := ::SendMsg( CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 Eval( ::bSetGet, ::aItems[ ::nAt ] ) else Eval( ::bSetGet, GetWindowText( ::hWnd ) ) endif //aqui se evalua el blostfocus if ! Empty( ::bLostFocus ) return Eval( ::bLostFocus, Self, ::hWnd ) endif //fin modificacion ...

... NIL // ---------- FUNCTION FINDWND( cTitle ) local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD ) WHILE hWnd != 0 IF Upper( cTitle ) $ Upper( GetWindowText( hWnd ) ) RETURN hWnd ENDIF hWnd = GetWindow( hWnd, GW_HWNDNEXT ) END RETURN NIL best regards Uwe :D

You should to use a similar function to fivewin GetTask(), using window caption so "SKYPE" $ GetWindowText()

Look at GetTask() function on fwh.

Too can to use GetForegroundWindow() for active window.

... == ::hWnd CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) if ValType( ::oGet:Original ) $ "CM" SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) ) endif MsgDelay() //EXISTE OUTRA MANEIRA DE RESOLVER? ::oGet:Buffer = GetWindowText( ::hWnd ) ...

...  in ?)    WINDOW.PRG     3261  3289 GETWINDOWLONG()        (function  in ?)    WINDOW.PRG      531   881  2776  3867  3942  3960  3980  4088 GETWINDOWTEXT()        (function  in ?)    WINDOW.PRG      626  1443 GETWNDAPP()            (function  in ?)    WINDOW.PRG     2610  3798 GETWNDDEFAULT() ...

... CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 cRet := If( ::oGet == nil, ::aItems[ nAt + 1 ], ::oGet:GetText() ) //::OGET!!! else cRet := GetWindowText( ::hWnd ) endif return cRet