Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to Create Shortcuts/Get Desktop Folder
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00866766
Message ID:
00866786
Views:
23
>>>Does any one know how to create a windows shortcut programatically?
>>>
>>>And along with that determine the Desktop folder to save it into?
>>>
>>
>>For only Win2k or + you can:
>>
>>
>>
>>DECLARE INTEGER CreateShellLink IN LNKFILES.DLL;
>>STRING @lpzLinkFileName, STRING @lpzExeFileName
>>
>>
>>oShell = CREATEOBJECT("WScript.Shell")
>>oFso = CreateObject("Scripting.FileSystemObject")
>>cwdesktopfolder = oShell.SpecialFolders("Desktop")
>>
>>
>>lnErrorCode = CreateShellLink(cwdesktopfolder+"\My Shortcut.lnk","c:\myfolder\myapp.exe")
>>
>
>That's a DLL that I wrote. Its intended target platform was Win9x, so there was some limited functionality. For example, can't get the All User's Desktop.
George


In that case, the better option is to mix the two solution (franco and mine), something as:
oShell          = CREATEOBJECT("WScript.Shell")
oFso            = CreateObject("Scripting.FileSystemObject")
cwdesktopfolder = oShell.SpecialFolders("Desktop")

lnk             = oshell.CreateShortcut("foo.lnk")
lnk.TargetPath  = "c:\dummy.exe"
lnk.Save
Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform