>>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") >>>
oShell = CREATEOBJECT("WScript.Shell") oFso = CreateObject("Scripting.FileSystemObject") cwdesktopfolder = oShell.SpecialFolders("Desktop") lnk = oshell.CreateShortcut("foo.lnk") lnk.TargetPath = "c:\dummy.exe" lnk.SaveClaudio