$exe = "C:\WINDOWS\system32\cmd.exe"
FileCreateShortcut($exe,@DesktopDir & "\控制台.lnk",StringLeft($exe,StringInStr($exe,"\",0,-1)),"/c")
$search = FileFindFirstFile(@DesktopDir & "\*.lnk")
; 检查搜索是否成功
If $search = -1 Then
MsgBox(0, "错误",@DesktopDir & "没有找到任何文件")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$file1 = FileGetShortcut(@DesktopDir & "\" & $file)
if StringInStr($file1[0],$exe) then
msgbox(0,"","快捷方式:" & @DesktopDir & "\" & $file & @CRLF & "参 数:" & $file1[2])
endif
WEnd
; 关闭搜索句柄
FileClose($search) |