Trigger when an item is selected on windows explorer

[ssimop]

I use the following trigger when an item is selected on a windows explorer system list view :

Function tempf3
Trigger $a 133 -4 "" "SysListView32" "" "FolderView" "ExploreWClass" "" 34     

Code:

Copy      Help

function hwnd idObject idChild
str si.getmacro(getopt(itemid) 1)
if ideb; out "%s : %s" NowT si

Acc a.ObjectFromEvent(hwnd idObject idChild)
str sf=a.Name

;min 0; err out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si sf

str sext.GetFilenameExt(sf)
if StrCompare(sext "eml")=0
,mac "OER Routines" hwnd
else
,int w=win("OER ROUTINES" "QM_toolbar")
,ifi w ; clo w

Any comment or advice to improve it is welcome.