Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / ShortCut / disk.rq

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  

     OPTION = EXPLICIT

'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.

     DECLARE FUNCTION fCreateShellLink LIB "STKIT432.DLL" ALIAS "fCreateShellLink" (BYVAL _
      lpstrFolderName AS STRING, BYVAL lpstrLinkName AS STRING, BYVAL _
      lpstrLinkPath AS STRING, BYVAL lpstrLinkArgs AS STRING) AS LONG

     DIM lReturn AS LONG

'Add to Desktop
     lReturn = fCreateShellLink("..\..\Desktop", _
      "Shortcut to Solitare", "c:\windows\sol.exe", "")

'Add to Program Menu Group
     lReturn = fCreateShellLink("", "Shortcut to Solitare", _
      "c:\Windows\sol.exe", "")

'Add to Startup Group

'Note that on Windows NT, the shortcut will not actually appear
'in the Startup group until your next reboot.

     lReturn = fCreateShellLink("\Startup", "Shortcut to Solitare", _
      "c:\Windows\sol.exe", "")

     END

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2019-6-27  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-06-09 08:59:08