Detect Windows Media Player
I hope someone find usefull and if someone find a better way tell me =D

Function GetWMPVer
Push $R0

ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\MediaPlayer\PlayerUpgrade" "PlayerVersion"

Exch $R0
FunctionEnd