This function detects Video for Windows of version more or equal to 1.1.

to get VidForWin
     system string myVer
     local string myMCI
     local int myNum

     get callMCI("close all")
     myNum = callMCI("sysinfo all quantity")
     if myNum = 0
          return false
     end if
     step i from 1 to myNum
          myMCI = myMCI & callMCI("sysinfo all name" && i) & ","
     end step
     clear last char of myMCI
     if "AVIVideo" is not in myMCI
          return false
     end if
     if callMCI("open AVIVideo shareable wait") = null
          return false
     else
          get callMCI("close AVIVideo wait")
          myVer = callMCI("info AVIVideo version wait")
          if "Version" is in myVer
               if myVer < "Version 1.1" as text
                    return false
               end if
          else
               if myVer < "1.1" as text
                    return false
               end if
          end if
          get callMCI("close AVIVideo wait")
     end if
     return true -- Video for Windows is installed!
end