on getPropertyDescriptionList me
myList = [:]
myList[#programName] = [#comment: ‘‘输入要调用的程序文件名前缀\‘‘, #format: #string,#
return myList
end
on mouseup
search_path=the searchPaths
add search_path,‘‘\‘‘
repeat with i=1 to search_path.count
if fileExists(search_path,programName & ‘‘.dxr‘‘) then
go movie programName
exit
end if
end repeat
alert ‘‘Demo version!‘‘
end
on fileExists _path,_FileName
fxObj = new(xtra ‘‘FileXtra3‘‘)
if fxObj.fx_FileExists(the moviepath & _path & _FileName ) then
fxObj=void
temp=true
else
temp=false
end if
fxObj=void
return temp
end
二、检测CD盘符
on FindCDDrives
set cdDrives = list ()
set dList = DrivesToList()
set numList = count (dList)
repeat with i = 1 to numList
set chkDrive = getAt(dList,i)
if driveIsCDROM(chkdrive) = 0 then
add cdDrives, chkdrive
end if
end repeat
return cdDrives
end