明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1568|回复: 10

[提问] 如何用LSP创建桌面快捷方式

[复制链接]
发表于 2015-12-24 11:45 | 显示全部楼层 |阅读模式
如何用LSP创建程序的桌面快捷方式
如QQ,路径:D:\Program Files\QQ\qq.exe
给个例子,谢谢
发表于 2015-12-24 13:00 | 显示全部楼层
调用Wscript.shell即可
发表于 2015-12-24 23:48 来自手机 | 显示全部楼层
过来坐看哪位大师的程序学习下
发表于 2015-12-25 10:45 | 显示全部楼层
不知道在那可以用到
 楼主| 发表于 2015-12-25 16:02 | 显示全部楼层
请求大师们写一个,谢谢
发表于 2015-12-26 11:59 | 显示全部楼层
这是用来编写病毒或流氓软件的吗?

点评

CTC
不是的,谢谢你  发表于 2015-12-26 13:51
发表于 2015-12-26 12:59 | 显示全部楼层
  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.   (setq WshShell (vlax-create-object "WScript.Shell"))
  9.   (setq colSpeFolders (vlax-get-property WshShell "SpecialFolders"))

  10.   (setq        strDesktop
  11.          (vlax-invoke-method colSpeFolders "Item" "Desktop")
  12.   )
  13.   (Setq        oShellLink
  14.          (vlax-invoke-method
  15.            WshShell
  16.            "CreateShortcut"
  17.            (strcat strDesktop "\\" LnkName ".LNK")
  18.          )
  19.   )
  20.   (vlax-put-property oShellLink "targetPath" FilePath)
  21.   (vlax-put-property oShellLink "WindowStyle" 1)
  22.   (vlax-put-property
  23.     oShellLink
  24.     "IconLocation"
  25.     (strcat FilePath ",0")
  26.   )
  27.   (vlax-invoke-method oShellLink "Save")
  28.   (vlax-release-object oShellLink)
  29.   (vlax-release-object WshShell)


  30. )

  31. (defun c:cl ()
  32.   (mShellLnk "calc" "c:\\windows\\system32\\calc.exe")
  33. )

评分

参与人数 3明经币 +3 金钱 +30 收起 理由
USER2128 + 1 赞一个!
lucas_3333 + 1 乐于助人奖
CTC + 1 + 30 赞一个!

查看全部评分

 楼主| 发表于 2015-12-26 14:05 | 显示全部楼层
zzyong00 发表于 2015-12-26 12:59

桌面的快捷方式,好像没有图标,帮忙看看,谢谢
发表于 2015-12-26 14:15 | 显示全部楼层
  (vlax-put-property
    oShellLink
    "IconLocation"
    (strcat FilePath ",0")
  )
用exe文件的默认图标啊

点评

CTC
可以了  发表于 2015-12-26 14:28
 楼主| 发表于 2015-12-26 14:25 | 显示全部楼层
zzyong00 发表于 2015-12-26 14:15
(vlax-put-property
    oShellLink
    "IconLocation"

我也不知怎么回事,就是没出来呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 20:47 , Processed in 0.227368 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表