发信人: fox_moudle()
整理人: leweiwen(2000-08-19 08:40:19), 站内信件
|
【 在 ff (BBQ -=GOLD=-) 的大作中提到: 】
:
: 做一张多媒体光盘,用authorware5,
: 其中要调用Powerpoint去运行test.ppt,
: 我用了这么一句:
: .......
取出光盘符的方法:
repeat with n := 0 to 25
If AppType = 1 then --(16-bit Windows)
drivecode := GetDriveType(n)
if drivecode = 4 then exit repeat
else if AppType = 2 then --(32-bit Windows)
drivecode := GetDriveType(CHar(65+n)^":\\")
if drivecode = 5 then exit repeat
end if
end repeat
drive letter := Char(65+n)
-- http://alienstuio.myrice.com
平面设计、多媒体课件、教学论文、好书推荐、
另类mp3、Dingbats字体下载、安再旭、金喜善写真
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.104.39.83]
|
|