Spy

this is a utilty i started to wrote to some application with many floating windows, (the app didn't gave much ability to handle them).

then it become a general purpose utilty, it can work with any running application.
I always try to use only API, because i always have "convert basic to other language" in mind, so there are many APIs here.

please fill free to post any comment you like.

In accordance with this CodeBank policy regarding attachments, I have edited yours and removed all compiled files.

Please post only source code in any CodeBank attachment.

Thank you. :)

I'm sorry,
i did it in the first time i tried to post (on my computer), but then i changed something, and forgot that.

Quote:

---

Originally Posted by whatsup

this is a utilty i started to wrote to some application with many floating windows, (the app didn't gave much ability to handle them).

then it become a general purpose utilty, it can work with any running application.
I always try to use only API, because i always have "convert basic to other language" in mind, so there are many APIs here.

please fill free to post any comment you like.

---

Good one Spy, have been trying this line of coding for sometime now (when ever I get it).
I am new here, I hope that I am allowed to modify the code to my liking.

Quote:

---

I hope that I am allowed to modify the code to my liking

---

yes, you are.
you can also post any questions you like.

update
now it can determine not just parent,
but parent process as well.

WhatsUp, works great but it would be nice to have the information in other places. Do you want me to update program or do you may feel free to add the following. I have only done the basics right now?

To get information for window displays from handles (ALL Window and Application Windows TAB)

vb Code:

'Use the following for main window
    lngThreadId = GetWindowThreadProcessId(hwnd, lngProcessId)
' then call function lngParnetPID = MyGetParentPID(lngProcessId)
 
'Add the following to Sub HoverIt1()
    lngThreadID = GetWindowThreadProcessId(HwndOver, lngProcessID)
    .lblHover1 = .lblHover1 & "Window Process ID: " & CStr(lngProcessID) & vbCrLf ' Display window process ID
    .lblHover1 = .lblHover1 & "Window Thread ID: " & CStr(lngThreadID) & vbCrLf ' Display window thread ID
 
    lngParentProcID = MyGetParentPID(lngProcessID)
    .lblHover1 = .lblHover1 & "Parent Process ID:" & lngParentProcID & vbCrLf
 
'Create a new function (beware I have not removed unused variables yet)
 
Public Function MyGetParentPID(lpID As Long) As Long
    Dim lSnapShotP As Long
    Dim hProcess As Long
    Dim lNextProcess As Long
    Dim tPE As PROCESSENTRY32
    Dim tME As MODULEENTRY32
    Dim lvwListItem As ListItem
    Dim ModuleName As String * MAX_PATH
    Dim sModName As String
    Dim sExe As String
    Dim lRet As Long
 
    MyGetParentPID = 9999
    
    ' Create snapshot
    lSnapShotP = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
    If lSnapShotP <> INVALID_HANDLE_VALUE Then
        ' Length of the structure
        tPE.dwSize = Len(tPE)
 
        ' Find first process
        lNextProcess = Process32First(lSnapShotP, tPE)
        Do While lNextProcess
            ' must reset every cycle
            sModName = ""
            hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, tPE.th32ProcessID)
 
            'Get the module file name
            lRet = GetModuleFileNameExA(hProcess, 0, ModuleName, MAX_PATH)
 
            'Get the module file name out of the buffer, lRet is how
            'many characters the string is, the rest of the buffer is spaces
            sModName = RTrimNull$(ModuleName)
            sExe = RTrimNull$(tPE.szExeFile)
 
            sModName = ReplacePathSystem(sModName, sExe)
 
            Call CloseHandle(hProcess)
 
            ' Found specified process
            If lpID = tPE.th32ProcessID Then
                MyGetParentPID = tPE.th32ParentProcessID
                Exit Do
            End If
 
            ' Get next process
            lNextProcess = Process32Next(lSnapShotP, tPE)
        Loop
        Call CloseHandle(lSnapShotP)
    End If
End Function

Since there might be multiple windows associated with a single process ID, we will need to deteremine the owner of the process ID. Then we will be able to determine the unique parent process. I have just started to look into this but someone else out there might have already determined how to perform this function.

do you mean if a window has childs , each child has the same process ID ?
if so, this is already handled.

if you mean that different apps can have the same processID
i don't think it's true.

Quote:

---

Originally Posted by whatsup

do you mean if a window has childs , each child has the same process ID ?
if so, this is already handled.

---

Yes this is what I mean but you can see in SPY++ that only one of the processes is the owner and all the other process which shares the same process ID all point to the common owner.

you can see which is child window
you even has a special tab(the second), that only one app and all its childs are displayed.

EDIT: maybe i add a process column to the windows list, not a problem.

I missed that. It looks like the last entry in the "Application Window" is the owner of the process ID. Is this correct?

no, you can see which is child, on the child coloumn
there can be two or more none-childs in one app
and all these windows are with the same Process ID

i'll check if i can give more details about what is the main window.

Found what I was looking for GETWINDOW(hWnd,GW_OWNER) where GW_OWNER=4. This function will return the owner of each handle. Since you could have every process without a parent indicator you can use this to determine the main window in the group. Sometime it may be invisible in the listing. Hopefully this is the last key I needed, all I need to do now is create an algorthm which puts all the information together and presents it back to the user in a simple form.

this will give you only the immediate owner, not the top most window of the app.
PSpy has a function to get the top most window, and in app mode, it shows the title of that top most
in the header.

i updated now with:
the handle number of the topmost window is display along with the title
in the process tab:
parent name column, so you can see the parent name of each process along with its ID number

the last updates before these were:
in the windows tab:
process column
kill process tree

i think you can find every thing you need in the code. :)