PC Toledo

Código: Selecionar todos

aData:=GetAppInfoData(Chr(91)+cProject+Chr(93),2)

Código: Selecionar todos

Function GetAppInfoData (cFind_Text, nFind)
Local aDataAppInfo, i, k:=1

aRawData := GetAppInfo (cFind_Text, nFind)
aDataAppInfo := ARRAY ((LEN(aRawData)/8), 8)
FOR i = 1 TO LEN (aDataAppInfo)
    aDataAppInfo [i,1] := aRawData [k]; k++   // hWnd_OWNER
    aDataAppInfo [i,2] := aRawData [k]; k++   // cTitle_OWNER
    aDataAppInfo [i,3] := aRawData [k]; k++   // hWnd
    aDataAppInfo [i,4] := aRawData [k]; k++   // cTitle_Win
    aDataAppInfo [i,5] := aRawData [k]; k++   // nThreadId
    aDataAppInfo [i,6] := aRawData [k]; k++   // nProcessId
    aDataAppInfo [i,7] := aRawData [k]; k++   // cProcessPath
    aDataAppInfo [i,8] := aRawData [k]; k++   // cProcessName
NEXT
Return aDataAppInfo

Código: Selecionar todos

#define FIND_INFO_cTitle_OWNER           1
#define FIND_INFO_cTitle_Win             2
#define FIND_INFO_cProcessName           4
#define FIND_INFO_cProcessPath           8
#define FIND_INFO_CaseSensitive          16
#define FIND_INFO_Only_hWnd_OWNER_Zero   32

Código: Selecionar todos

   If GetWindow( hWnd, GW_OWNER ) = 0 .AND.;  // If it is an owner window
			IsWindowVisible( hWnd ) .AND.;     // If it is a visible window
			hWnd != hOwnWnd .AND.;             // If it is not this app
			!EMPTY( cTitle ) .AND.;            // If the window has a title
			!( "Prompt de comando" $ cTitle ) .AND.; // If it is not DOS session
			!( cTitle == "Program Manager" )   // If it is not the Program Manager

Código: Selecionar todos

HB_FUNC (GETFOREGROUNDWINDOW)
{
	HWND x;

	x = GetForegroundWindow() ;
	hb_retnl ((LONG) x );
}
HB_FUNC (GETWINDOW)
{
   hb_retnl( ( LONG ) GetWindow( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ) ) );
}
HB_FUNC ( GETWINDOWTEXT )
{
   USHORT iLen = 65000;
   TCHAR *cText = (TCHAR*) hb_xgrab( iLen+1 * sizeof(TCHAR));

	GetWindowText(
	(HWND) hb_parnl (1),	
	(LPTSTR) cText,       	
	iLen                   	
	);	

   HMG_retc( cText );
   hb_xfree( cText );
}

Código: Selecionar todos

#include <hmg.ch>

#define GW_HWNDFIRST	0
#define GW_HWNDNEXT		2
#define GW_OWNER		4

Function Main()
//################# inserido por mim - a variável como é recebida como um parametro
Parameters como
//################# inserido por mim


Local aTitles := GetTitles( GetForegroundWindow() )

DebugMSG(aTitles)
Return

Function GetTitles( hOwnWnd )
Local aTasks := {}, cTitle := "", ;
	hWnd := GetWindow( hOwnWnd, GW_HWNDFIRST )        // Get the first window


//################# inserido por mim
mytexto := estacao := estacnu := unitserver := ''

mydir := directory('solicaux.t??')
cntarq := 1
while cntarq <= len(mydir)
 mytexto += mydir[cntarq,1]+crlf+memoread(mydir[cntarq,1])+crlf+crlf
 if getenv('USERDOMAIN')+'###'+getenv('USERNAME') $ memoread(mydir[cntarq,1])
  estacao := 'TERM'+ltri(str(val(subs(mydir[cntarq,1],11))))
  estacnu := subs(mydir[cntarq,1],11)
  unitserver := if ('UNITSERVER' $ memoread(mydir[cntarq,1]) , estacao , '' )
  exit
 end

 cntarq++
end
//################# inserido por mim


//################# inserido por mim - como = 'V' significa só as visíveis
if como = 'v'
//################# inserido por mim

Do While hWnd != 0                                   // Loop through all the windows
   cTitle := GetWindowText( hWnd )
   If GetWindow( hWnd, GW_OWNER ) = 0 .AND.;  // If it is an owner window
			IsWindowVisible( hWnd ) .AND.;     // If it is a visible window
			hWnd != hOwnWnd .AND.;             // If it is not this app
			!EMPTY( cTitle ) .AND.;            // If the window has a title
			!( "Prompt de comando" $ cTitle ) .AND.; // If it is not DOS session
			!( cTitle == "Program Manager" )   // If it is not the Program Manager
      aAdd( aTasks, { cTitle, hWnd } )
   Endif
   hWnd := GetWindow( hWnd, GW_HWNDNEXT )     // Get the next window
Enddo

//################# inserido por mim - como = 'i' significa só as invisíveis
elseif como = 'i'
//################# inserido por mim

Do While hWnd != 0                                   // Loop through all the windows
   cTitle := GetWindowText( hWnd )
   If GetWindow( hWnd, GW_OWNER ) = 0 .AND.;  // If it is an owner window
			hWnd != hOwnWnd .AND.;             // If it is not this app
			!EMPTY( cTitle ) .AND.;            // If the window has a title
			!( "Prompt de comando" $ cTitle ) .AND.; // If it is not DOS session
			!( cTitle == "Program Manager" )   // If it is not the Program Manager
      aAdd( aTasks, { cTitle, hWnd } )
   Endif
   hWnd := GetWindow( hWnd, GW_HWNDNEXT )     // Get the next window
Enddo


//################# inserido por mim
end
//################# inserido por mim

Return ( aTasks )

Function DebugMSG
Local i, aTemp := {}

//################# inserido por mim - definindo uma variável texto vazia
Local fll := ''   
//################# inserido por mim

For i := 1 to pcount()

//################# comentado por mim
    //aadd( aTemp, hb_PValue(i))
//################# comentado por mim

//################# inserido por mim -> adicionando na var texto o conteudo seguido de carriage return
    Fll += aTemp, hb_PValue(i)+chr(13)+chr(10)
//################# inserido por mim

Next i

//################# comentado por mim
//MsgBox(hb_valtoexp(aTemp), "Helpful informations")
//################# comentado por mim


//################# inserido por mim --> gravando em um texto o conteudo da variavel
memowrit('qp.t'+estacnu,fll)
//################# inserido por mim
Return Nil

Código: Selecionar todos

Fll += aTemp, hb_PValue(i)+chr(13)+chr(10)

Código: Selecionar todos

    Fll += hb_PValue(i)+chr(13)+chr(10)