LiveCode Forums.

Code: Select all

On Error Resume Next
result = "OK"
Set oWS = CreateObject("WScript.Shell")
If Err <> 0 then
  result = "Error creating shell"
End If
If result = "OK" then
  sLinkFile = "<path for the destination of the shortcut>.lnk"
  Set oLink = oWS.CreateShortcut(sLinkFile)
  If Err <> 0 then
    result = "Error creating shortcut link file"
  End If
End If
If result = "OK" then
  oLink.TargetPath = "<path to your application>.exe"
  oLink.Description = "<uh... a description>"
  oLink.IconLocation = "<path to your icon file, which naturally will be the same as your application that has the embedded icon>.exe,0"
  'the trailing 0 is the index number of the icon to use inside the icon file. I confess I 
  'don't know what the difference is when there's only one icon for your application.
  'I have used index 0 or 1 interchangeably, while my applications contain 16 versions
  'of the same icon at different sizes and bit depths. Windows seems to display the right
  'resolution version of it whatever. At least for me, in my present experience.
  oLink.WindowStyle = 1
  oLink.Save
  If Err <> 0 then
    result = "Error creating shortcut icon"
  End If
End If
Set oWS = nothing

Code: Select all

do <thescript> as "vbscript"

Code: Select all

put the defaultFolder into theFolder
set the defaultFolder to specialFolderPath(7)
create alias "MyShortcut.lnk" to file <path to my file>
'make sure you include the .lnk extension to the name on Windows
set the defaultFolder to theFolder

Code: Select all

get setRegistry("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\My_App",thePathToYourProgram)