依旧漂泊 发表于 2010-11-5 23:32:04

创建快捷方式的问题[已解决]

本帖最后由 依旧漂泊 于 2010-11-17 00:00 编辑

$File = @TempDir & "\123.exe"
If @ScriptFullPath <> $File Then
        If FileExists($File) Then
                FileSetAttrib($File, "-RHS")
                If FileDelete($File) Then
                        FileCreateShortcut(@ScriptFullPath, @DesktopCommonDir & "\程序名称.lnk", @ScriptDir)
                        FileCopy(@ScriptFullPath, $File, 1)
                        Exit (ShellExecute($File))
                EndIf
        Else
                FileCreateShortcut(@ScriptFullPath, @DesktopCommonDir & "\程序名称.lnk", @ScriptDir)
                FileCopy(@ScriptFullPath, $File, 1)
                Exit (ShellExecute($File))
        EndIf
EndIf因为脚本需要复制自身并改名后在到临时文件夹运行,
在条件未成立的情况下可以在复制的过程创建快捷方式指定原脚本,
但在条件已成立的情况下要如何创建快捷方式?
注:在条件未成立的情况下创建的快捷方式是指定原脚本
(比如在桌面运行,条件未成立的情况下创建快捷方式是指定桌面的脚本)
在临时文件夹下条件已成立就指定临时文件夹的脚本!

潮州无极 发表于 2015-11-23 10:58:48

顶顶顶顶…good

zpmc123 发表于 2017-2-13 21:29:20

相当好的源码

zpmc123 发表于 2017-2-13 21:29:25

相当好的源码
页: [1]
查看完整版本: 创建快捷方式的问题[已解决]