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 作者: gxj000 时间: 2014-11-24 21:57
谢谢楼主提供分享！！作者: yipingzi 时间: 2015-1-21 11:47
阳春白雪，逛一逛，看一看，顶一顶。作者: vcall 时间: 2015-12-25 10:55
谢谢楼主提供分享！！