# Re: 应该可能

Posted by 默默 on April 23, 1999 at 16:20:27:

In Reply to: Re: 应该可能 posted by South Wind on April 23, 1999 at 12:14:28:

'这是我自己试的结果 , 应该是可以的
'请先将vb6 or VB6的光碟片中找到shelllnk.vbp开启之后编译成shelllnk.dll
'然后include这个dll (名称为pShelllnk)

Dim linkfile As New cShellLink
Dim WinPath As String
WinPath = "C:\Windows" '或是call API抓出windows path

linkfile.CreateShellLink WinPath + "\desktop\notepad.lnk", WinPath + "\notepad.exe", "c:\windows", "", WinPath + "\notepad.exe", 1, SHOWNORMAL

'这样就可以把记事本的捷径加到桌面上
'不知道是不是你所想要的? :)
'ps. 可以参考王国荣先生的VB6与API讲座该书,我是参考它作出来的:)

Follow Ups:

- Re: 应该可能 阿甘 16:44:47 4/23/99 (0)