>Checking for Extensions Present

Date:    Thu, 20 Jul 1995 17:42:16 -0700
From:    Ron Bearry <enzo@ESKIMO.COM>
Subject: Re: Check for the Apple Multimedia Tuner

I have never seen any external code for this. Here is one way you could do it with Lingo. I put a few lines in so you could check how fast the script runs. You could modify this so you could pass the Cdev or extension you are checking for as a parameter. Check this and see if it works. It should be close.

on GetFileNames
  put the ticks into t
  put char 1 to (offset(":", the pathName)) of the pathName into hdName
  put hdName&"System Folder:Extensions" into myPath
  repeat with i =  1 to the maxInteger
    put  getNthFileNameInFolder(myPath, i) into n
    if n = "Apple Multimedia Tuner" then
      put  ("ScriptTime took" && ((the ticks - t) / 60.0) && "seconds.")
      alert "The Multimedia Tuner Is Installed!"
      exit
    else
      if n = EMPTY then
        put  ("ScriptTime took" && ((the ticks - t) / 60.0) && "seconds.")
        alert "The Multimedia Tuner Aint Here!"
        exit
      end if
    end if
  end repeat
end