/ShellLinkA/examples/example1.ahk

http://github.com/maul-esel/COM-Classes · AutoHotKey · 37 lines · 16 code · 4 blank · 17 comment · 0 complexity · 1fc71c16f3e1fe650d3069d3f98b69e1 MD5 · raw file 

    

  1. /*
    2. 

  2. Example: Demonstrates the usage of *ShellLinkA.ahk*
    3. 

  3. 	* Creating a new shell link (shortcut)
    4. 

  4. 	* Setting its properties
    5. 

  5. 	* Saving it to a file.
    6. 

    7. 

  7. Authors:
    8. 

  8. 	- maul.esel (https://github.com/maul-esel)
    9. 

    10. 

  10. License:
    11. 

  11. 	- *LGPL* (http://www.gnu.org/licenses/lgpl-2.1.txt)
    12. 

    13. 

  13. Requirements:
    14. 

  14. 	AutoHotkey - AHK v2 alpha
    15. 

  15. 	OS - Windows XP / Windows 2000 Server or higher
    16. 

  16. 	Classes - _CCF_Error_Handler_, CCFramework, Unknown, ShellLinkA, Persist, PersistFile
    17. 

  17. */
    18. 

  18. #SingleInstance off
    19. 

  19. #include ..\..\_CCF_Error_Handler_.ahk
    20. 

  20. #include ..\..\CCFramework.ahk
    21. 

  21. #include ..\..\Unknown\Unknown.ahk
    22. 

  22. #include ..\ShellLinkA.ahk
    23. 

  23. #include ..\..\Persist\Persist.ahk
    24. 

  24. #include ..\..\PersistFile\PersistFile.ahk
    25. 

  25. 

  26. link := new ShellLinkA() ; create a shell link
    27. 

  27. 

  28. link.SetPath(A_Comspec) ; set the target + other properties of the link
    29. 

  29. link.SetDescription("this is a test file by an AHK script")
    30. 

  30. link.SetIconLocation(A_WinDir "\system32\imageres.dll", 23)
    31. 

  31. link.SetWorkingDirectory(A_MyDocuments)
    32. 

  32. link.SetArguments("/k `"echo Hi! This is a test.`"")
    33. 

    34. 

  34. file := new PersistFile(link.QueryInterface(PersistFile.IID)) ; get a PersistFile instance for the link
    35. 

    36. 

  36. file.Save(A_Desktop "\comspec.lnk.lnk", true) ; save the link to a file (somehow the '.lnk' is trucated...)
    37. 

  37. MsgBox Saved the shell link to %A_Desktop%\comspec.lnk ; report to user
    38.