Sign in to follow this  
Followers 0
zvd

Taskbar Applications

3 posts in this topic

I'm trying to have just one message box show all the applications running on the taskbar. In this example, I get a message box for each application running, with the last box finally showing all the applications. How would I make it so I only retrieve the contents of the last message box? (Also, is there a better way to retrieve the running applications other than ObjCreate("Word.Application")? At least using this returns friendly names...

Global $strList
    $objWord = ObjCreate("Word.Application")
    $colTasks = $objWord.Tasks
    For $objTask In $colTasks
        If $objTask.Visible Then
            $strList = ($strList & $objTask.Name & @CR)
            MsgBox(0, "", $strList)
        EndIf
    Next

Share this post


Link to post
Share on other sites



Global $strList
$objWord = ObjCreate("Word.Application")
$colTasks = $objWord.Tasks
For $objTask In $colTasks
    If $objTask.Visible Then $strList = ($strList & $objTask.Name & @CR)
Next
MsgBox(0, "", $strList)

Share this post


Link to post
Share on other sites

Thanks alot for your quick help!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0