在精灵中文网中有此帖子,不知是否你的问题的答复?
建立连网快捷方式
如果你想在用户桌面上建立快捷方式,首先,你需要两个插件:系统信息插件FileXtra3或BuddyAPI Xtra或DirectOS Xtra,另一个是文件输入输出插件(FILEIO),这个是Director自带的。
第一步你要找到用户桌面的位置。这是至关重要的一步,因为不同的机器路径可能是不同的。以FileXtra3举例:
gFileObj = new (xtra "filextra3")
if the platform contains "Windows" then
desktopPath = gFileObj.fx_FolderGetSpecialPath ("CSIDL_DESKTOPDIRECTORY")
else
desktopPath = gFileObj.fx_FolderGetSpecialPath ("kDesktopFolderType")
end if
gFileObj = 0
这段代码启动了插件,然后判断是Windows系统还是Macintosh。以此决定使用适当的代码。最后关闭插件。
现在你得到了桌面的路径,你需要的是建立一个快捷方式了。不幸的是,没有插件直接支持建立URL和别名,他们可以建立文件或目录的快捷方式,但对URL……???解决的方法是:FileXtra3。为了建立快捷方式,你需要创建一个HTML页面,
HTMLString = "
Visit Director Online Click here to visit Director Online. "
DesktopFileName = "VisitDOUG.htm"
这段代码中你已用HTMLString建立了一个完整的HTML页面,他包含了文件标题,域名指向,自动转向的时间(这儿是0),和一个链接(为了可能出现的无法自动转向)。最后,你可以建立桌面的快捷方式文件了。你可以用.htm作为扩展名,这样计算机自动将以网页浏览器打开他了。
最后的步骤是在桌面上建立HTML页面
fileObj = new (xtra "fileIO")
fileObj.createFile (desktopPath & DesktopFileName)
fileObj.openFile (desktopPath & DesktopFileName, 0)
fileObj.writeString (HTMLString)
fileObj.closeFile ()
fileObj = 0
这段代码重新打开插件FileIO,然后他建立一个新的空白文件在用户的桌面上,然后自支打开这个文件,写入你的HTML代码。当一切完成,插件自动关闭。
Mac系统稍有不同,在此不做详细说明了。代码如下:
gFileObj = new (xtra "filextra3")
if the platform contains "Windows" then
nothing
else
gFileObj.fx_FileSetType (desktopPath & DesktopFileName, "TEXTMOSS")
end if
gFileObj = 0
好了,现在的局面就是桌面上多了个东东,你想带用户去哪就去哪……