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

依旧漂泊 · 发表于 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

相当好的源码

		自动登录	找回密码
密码			加入

[系统综合] 创建快捷方式的问题[已解决]

相关帖子