Office中国论坛/Access中国论坛

标题: [求助]请教：如何用代码生成SYSTEM.MDW的桌面快捷方式？ [打印本页]

作者: yachtz 时间: 2004-9-10 01:15
标题: [求助]请教：如何用代码生成SYSTEM.MDW的桌面快捷方式？
谢谢！

作者: zhengjialon 时间: 2004-9-10 21:53
这个可能要用API做了,(我也找不到方法),ACCESS的VBA里没有直接的方法.

作者: hi-wzj 时间: 2004-9-14 01:18
创建和删除快捷方式

　　OSfCreateShellGroup，OSfCreateShellLink，OSfRemoveShellLink三个API函数存在于VB的一个动态连接库Vb5stkit.dll中，使用它们可以方便的创建桌面上或是开始菜单中的快捷方式。　　我们先来声明以上几个API函数，如下所示：

　　　Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long

返回值

Long，非零表示成功，零表示失败参数：意义

lpstrfoldername String,指定保存快捷方式的文件夹,默认为"c:\Windows\startmenu\programs"

lpstrlinkname String，指定快捷方式的名称

lpstrpathname String，指定快捷方式所指向的应用程序或文件　　声明完后就可以在程序中使用这几个函数了，创建一个桌面上的快捷方式吧，只须一句代码即可：lresult = OSfCreateShellLink("..\..\desktop", "记事本","c:\Windows\notepad.exe", "")其中"..\..\desktop"是指桌面所在的目录，"记事本"是快捷方式的名称，而快捷方式所指向的目标文件是"c:\windows\notepad.exe"。

作者: yachtz 时间: 2004-9-14 01:41
谢谢!但是此时需要生成的快捷方式的命令行是形如: path\MSACCESS.EXE path\databasename.mdb /wrkgrp path\systemn.mdw,是否可以直接套用呢?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)