雨滴的孤独 发表于 2008-7-6 19:37:22

怎样打开快捷方式

如题,请问怎样用Run或其它函数打开lnk快捷方式?

[ 本帖最后由 雨滴的孤独 于 2008-7-11 21:20 编辑 ]

netegg 发表于 2008-7-6 21:52:25

没明白你到底要干什么

redapple2008 发表于 2008-7-6 22:15:20

可能就是要执行快捷方式下的软件.

雨滴的孤独 发表于 2008-7-6 22:28:07

是啊,就是3楼的意思

顽固不化 发表于 2008-7-6 22:33:30

RunDll32.exe shell32.dll,ShellExec_RunDLL qq.lnk

Amu 发表于 2008-7-7 01:52:52

用ShellExecute可调用。

雨滴的孤独 发表于 2008-7-7 12:53:35

ShellExecute这个函数是在哪的,我怎么没有见过

renren 发表于 2008-7-7 13:09:50

ShellExecute这个函数是在哪的,我怎么没有见过汗``看帮助`或者 搜索下帮助的索引

lqq 发表于 2008-7-7 17:04:02

之前写的东西，看对你有用不

Func target()

$search = FileFindFirstFile(@DesktopDir & "*")

If $search = -1 Then
        MsgBox(0, "Error", "No files/directories matched the search pattern")
EndIf


While 1
        $file = FileFindNextFile($search)
       If @error Then ExitLoop

    $attrib = FileGetAttrib (@DesktopDir & "" & $file)

        If $attrib = "A" Then

                $Target= exten($file)

        Else
      
           $Target = @DesktopDir & "" & $file

    EndIf

    MsgBox(0, @DesktopDir & "" & $file & "指向", $Target )

WEnd

MsgBox(4096, "File:", @DesktopDir &"遍历结束")

; Close the search handle
FileClose($search)

EndFunc


Func exten($file)

                $Split = StringSplit($file,".")

      $exten = $Split[$Split]

                If $exten = "lnk" Then

                                $var = FileGetShortcut (@DesktopDir & "" & $file)
                               
                                $Target = $var

                return $Target
      Else

                $Target = @DesktopDir & "" & $file
                               
                                return $Target
                EndIf
EndFunc

netegg 发表于 2008-7-7 21:57:11

楼上这个似乎不太合适吧，@desktopdir只能针对当前用户，如果是all userr文件夹中的快捷方式怎么办

雨滴的孤独 发表于 2008-7-11 18:52:54

谢谢大家哈,我看的帮助文档版本可能太低了
页: [1]
查看完整版本: 怎样打开快捷方式