Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

       oDlg2 := XbpDialog():new( AppDesktop(), , {10, 10}, {12, 60}) 
       oDlg2:clipSiblings := .T. 
       oDlg2:drawingArea:ClipChildren := .T. 
       oDlg2:create()       
       SETAPPFOCUS(oDlg2) 
       setappwindow(oDlg2)   
       aTaskList := {}   
       aTasklist := GetTaskList( oDlg2:gethWnd( ) ) 
       oDlg2:destroy()
       SetAppWindow(oDlg)  // Focus auf übergeordnetes Fenster
       SetAppFocus(oDlg)       
       altd()
       cString := time() + CRLF 
       for nI = 1 to len(aTasklist)
          cString := cString + upper(aTasklist[nI]) + CRLF
       next
       cString := cString + "Anzahl Programme: " + str(len(aTasklist), 3)
       oXbpAusgabe:setcaption(cString)   // Ausgabe der Tasklist

Code: Alles auswählen

#include "dll.ch" 
EXTERN LONG EnumWindows( EnumProc AS CALLBACK, aParam AS XPPVALUE ) IN WIN32API
EXTERN LONG IsWindowVisible( nHWND AS LONG ) IN WIN32API
EXTERN LONG GetWindowText( nHWND AS LONG, @cTxt AS STRING, nCnt AS LONG ) IN WIN32API

////////////////////////////////////////
/// /// <summary>
/// Get the windows which are currently open on the desktop. Return
/// is an array with the window titles.
/// </summary>
function ListWindowTitles()
 local oCallback
 local aRet := {}

   //
   // Create a callback object for the callback function expected by
   // the EnumWindows() Win32 API. This is a standard Xbase++ function
   // which is called implicitly by the API.
   //
   oCallback := DLLCallBack():new( "EnumWindowProc",, DLL_TYPE_UINT32, DLL_TYPE_XPPVALUE )
   EnumWindows( oCallback, aRet )
return aRet


/// <summary>
/// Xbase++ callback function to be executed by the EnumWindows()
/// Win32 API.
/// </summary>
/// <param name="nHWND">The OS-level window handle</param>
/// <param name="aWins">An array to be filled with window titles</param>
/// <returns>1 to continue enumerating OS-level windows, 0 to cancel</returns>
function EnumWindowProc( nHWND, aWins )
 local cTmp := Space( 255 )

   // Only visible windows should be listed
   if IsWindowVisible(nHWND) == 0
      return 1
   endif

   // Get the window's caption and add it to the title array
   if GetWindowText(nHWND, @cTmp, 255) == 0
      return 1
   endif
   cTmp := rtrim(cTmp)
   if asc(right(cTmp, 1)) == 0   // asc(0) entfernen!
         cTmp := left(cTmp, len(cTmp) - 1)
   endif
   AAdd( aWins, {RTrim(cTmp), nHWND} )
return 1

Code: Alles auswählen

EXTERN LONG IsWindowVisible( nHWND AS LONG ) IN WIN32API
EXTERN LONG GetWindowText( nHWND AS LONG, @cTxt AS STRING, nCnt AS LONG ) IN WIN32API


/// <summary>
/// Xbase++ callback function to be executed by the EnumWindows()
/// Win32 API.
/// </summary>
/// <param name="nHWND">The OS-level window handle</param>
/// <param name="aWins">An array to be filled with window titles</param>
/// <returns>1 to continue enumerating OS-level windows, 0 to cancel</returns>
function EnumWindowProc( nHWND, aWins )
 local cTmp := Space( 255 )

   // Only visible windows should be listed
   if IsWindowVisible(nHWND) == 0
      return 1
   endif

   // Get the window's caption and add it to the title array
   if GetWindowText(nHWND, @cTmp, 255) == 0
      return 1
   endif
   cTmp := rtrim(cTmp)
   if asc(right(cTmp, 1)) == 0   // asc(0) entfernen!
         cTmp := left(cTmp, len(cTmp) - 1)
   endif
   AAdd( aWins, {RTrim(cTmp), nHWND} )
return 1