Get process name from active window

[spuuunit]

I want to make a pop up that displays the process name for the currently active window ("firefox.exe" for example). How do I get this name?

While 1
    Sleep(2000)
    MsgBox(4096, "Process Name", "Process Name: " & ??????????)
WEnd

[JohnOne]

Functions from >this code by kafu should get you started.

[Celtic88]

Local $Actwin = WinGetHandle("[active]")
Local $PidActwin = WinGetProcess($Actwin)
Local $NamePidActwin = _Findpidname($PidActwin)

MsgBox(0, '', $NamePidActwin)

Func _Findpidname($Pid)
    Local $Processlist = ProcessList()
    For $i = 1 To $Processlist[0][0]
        If $Processlist[$i][1] = $Pid Then Return $Processlist[$i][0]
    Next
EndFunc   ;==>_Findpidname

[spuuunit]

So

Local $Actwin = WinGetHandle("[active]")
Local $PidActwin = WinGetProcess($Actwin)
Local $NamePidActwin = _Findpidname($PidActwin)

MsgBox(0, '', $NamePidActwin)

Func _Findpidname($Pid)
    Local $Processlist = ProcessList()
    For $i = 1 To $Processlist[0][0]
        If $Processlist[$i][1] = $Pid Then Return $Processlist[$i][0]
    Next
EndFunc   ;==>_Findpidname

 

Sorry for the wait, but I've now tried your code, and it works verry well, thanks . Thanks to you too John.