| kwong
176484
|
2014/8/29 11:01:59 |
| 楼主这个是delphi的哪个版本做的，我delphi7打开没有JwaMsi单元 |
| wldna
39130
|
2009/11/29 17:25:09 |
也许你已经习惯了这些操作，但我是个懒人，而且是搞开发的，今天一定要想办法把这个问题解决~
喜欢这句话，O(∩_∩)O哈哈~
谢谢分享，呵呵 |
| sail2000
37756
|
2009/6/19 20:08:21 |
@shunzi1220
脚本有BUG
如果一个"快捷方式"里面没有"目标"这行的内容,那么不会直达"快捷方式"的目标 |
| the_o
37494
|
2009/5/17 11:28:13 |
前段时间在学Java时，由于要经常打开大量文档资料，所以自己也写了个类似的东西，但要比搂主的程序简单很多。
谢谢楼主的共享 |
| dinkysoft
37333
|
2009/4/26 19:19:50 |
| 不错谢谢楼主 |
| zuobaoquan
37332
|
2009/4/26 17:25:07 |
@ppwhb
呵呵，大家都是懒人哈~
@shunzi1220
谢谢，这个方法很简单。我原来也是用脚本，后来碰到了Office快捷方式打不开，才想用Delphi实现，接下来我还会考虑支持那些“Pin to Start Menu”的“快捷方式”。 |
| shunzi1220
37331
|
2009/4/26 17:05:27 |
'==========
'
' NAME: ShowLnkTarget.vbs
'
' AUTHOR: SleepBoy
' DATE : 2006-1-12
'
' COMMENT: 快速显示“快捷方式”中“目标”所在的位置，并把焦点停留在目标上。
'
' 安装说明：1. 放在任意目录中，直接双击脚本，即可完成安装。
' 2. 安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
' 3. 如果移动了脚本的位置，请再安装一次。
' 4. 脚本名字可以改变。改好之后，请再安装一次。
'
'==========
Option Explicit
Dim objArgs, WshShell
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
If objArgs.Count = 1 Then
ShowLnkTarget
ElseIf objArgs.Count = 0 Then
Setup
End If
'==========
Sub Setup
Dim QM
QM = """"
WshShell.RegWrite "HKCR\lnkfile\shell\ShowLnkTarget\", "显示目标位置"
WshShell.RegWrite "HKCR\lnkfile\shell\ShowLnkTarget\command\", _
QM & WScript.FullName & QM & " " & _
QM & WScript.ScriptFullName & QM & " " & _
QM & "%1" & QM
MsgBox "安装完毕！",64,WScript.ScriptName
End Sub
'----------
Sub ShowLnkTarget
Dim lnkname, strComputer, objWMIService, colFiles, objFile
lnkname = Replace(objArgs(0),"\","\\")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * From Win32_ShortcutFile WHERE Name = " & "'" & lnkname & "'")
For Each objFile in colFiles
WshShell.Run ("explorer /n, /select," & objFile.Target)
Next
End Sub
'========== |
| ppwhb
37330
|
2009/4/26 13:07:59 |
FindTarget（快速定位快捷方式目标位置）,
楼主 的这个想法很不错，我是个比楼主还要懒的“懒人”，
但只会想，不会错，呵呵
谢谢 |
| 第一页 |
上一页
|
下一页
|
最后页 |
有
8
条纪录 共1页
1
-
8
|
|
