如何用LSP创建桌面快捷方式

CTC

如何用LSP创建程序的桌面快捷方式
如QQ，路径：D:\Program Files\QQ\qq.exe
给个例子，谢谢

陨落

调用Wscript.shell即可

429014673

过来坐看哪位大师的程序学习下

spp_wall

不知道在那可以用到

CTC

请求大师们写一个，谢谢

zzyong00

这是用来编写病毒或流氓软件的吗？

zzyong00

1. (defun mShellLnk
   
2.                  (LnkName        FilePath      /
   
3.                   WshShell        WScript              oShellLink
   
4.                   colSpeFolders        strDesktop
   
5.                  )
   
6.   ;BY zzyong00 2015-12-26
   
7.   (vl-load-com)
   
8. 
   
9.   (setq WshShell (vlax-create-object "WScript.Shell"))
   
10.   (setq colSpeFolders (vlax-get-property WshShell "SpecialFolders"))
    
11. 
    
12.   (setq        strDesktop
    
13.          (vlax-invoke-method colSpeFolders "Item" "Desktop")
    
14.   )
    
15.   (Setq        oShellLink
    
16.          (vlax-invoke-method
    
17.            WshShell
    
18.            "CreateShortcut"
    
19.            (strcat strDesktop "\\" LnkName ".LNK")
    
20.          )
    
21.   )
    
22.   (vlax-put-property oShellLink "targetPath" FilePath)
    
23.   (vlax-put-property oShellLink "WindowStyle" 1)
    
24.   (vlax-put-property
    
25.     oShellLink
    
26.     "IconLocation"
    
27.     (strcat FilePath ",0")
    
28.   )
    
29.   (vlax-invoke-method oShellLink "Save")
    
30.   (vlax-release-object oShellLink)
    
31.   (vlax-release-object WshShell)
    
32. 
    
33. 
    
34. )
    
35. 
    
36. (defun c:cl ()
    
37.   (mShellLnk "calc" "c:\\windows\\system32\\calc.exe")
    
38. )

(defun mShellLnk<br />                  (LnkName        FilePath      /<br />                   WshShell        WScript              oShellLink<br />                   colSpeFolders        strDesktop<br />                  )<br />   ;BY zzyong00 2015-12-26<br />   (vl-load-com)<br /> <br />   (setq WshShell (vlax-create-object "WScript.Shell"))<br />   (setq colSpeFolders (vlax-get-property WshShell "SpecialFolders"))<br /> <br />   (setq        strDesktop<br />          (vlax-invoke-method colSpeFolders "Item" "Desktop")<br />   )<br />   (Setq        oShellLink<br />          (vlax-invoke-method<br />            WshShell<br />            "CreateShortcut"<br />            (strcat strDesktop "\\" LnkName ".LNK")<br />          )<br />   )<br />   (vlax-put-property oShellLink "targetPath" FilePath)<br />   (vlax-put-property oShellLink "WindowStyle" 1)<br />   (vlax-put-property<br />     oShellLink<br />     "IconLocation"<br />     (strcat FilePath ",0")<br />   )<br />   (vlax-invoke-method oShellLink "Save")<br />   (vlax-release-object oShellLink)<br />   (vlax-release-object WshShell)<br /> <br /> <br /> )<br /> <br /> (defun c:cl ()<br />   (mShellLnk "calc" "c:\\windows\\system32\\calc.exe")<br /> )

CTC

zzyong00 发表于 2015-12-26 12:59

桌面的快捷方式，好像没有图标，帮忙看看，谢谢

zzyong00

  (vlax-put-property
    oShellLink
    "IconLocation"
    (strcat FilePath ",0")
  )
用exe文件的默认图标啊

CTC

zzyong00 发表于 2015-12-26 14:15
(vlax-put-property
    oShellLink
    "IconLocation"

我也不知怎么回事，就是没出来呢