☰

防止升级在 Windows 7 Home 上安装快捷方式

tag-icon • tag-icon windows-7 desktop shortcuts
防止升级在 Windows 7 Home 上安装快捷方式

可能重复：
您能阻止安装程序创建桌面快捷方式吗？

如何防止安装程序和升级程序将快捷方式直接放入Public DesktopWindows 7 Home 中？

每次我更新iTunes或者火狐或者读物或者闪光或者瘸子或者 任何需要频繁更新的东西，此更新通过在 中放置快捷方式弄乱了每个人的桌面C:\Users\Public\Desktop。

我不记得在 XP 下有这种行为。相反，大多数安装程序都会提供是否添加桌面图标的选项。但是到目前为止，在 Windows 7 下我还没有得到这样的选择。我是不是漏掉了什么？

答案1

我使用一个小的 VB 脚本将图标移动到每个用户的桌面而不是公共桌面。我相信有更好的方法来获取每个用户的名字，但我只是硬编码了它。它仍然会在每个用户的个人资料上放置图标，但至少每个人都可以选择是否拥有它。

将以下内容复制到记事本中，并以“.vbs”文件的形式保存到桌面。将用户更改为与计算机的用户相匹配。并将“dim User(4)”行更改为您拥有的用户数。如果您将自己设置为用户 (1)，它将在复制图标后打开您的桌面文件夹，以便您可以删除任何您不想要的图标。当您有新图标时，只需双击它，它们就会从“公共”文件夹中移出。

Dim ObjFso
Dim StrSourceLocation
Dim StrDestinationLocation
Dim StrSourceFileName
Dim StrDestinationFileName
dim objFileCopy
dim file
dim Users(4)
dim i
Dim SH, txtFolderToOpen 

StrSourceLocation = "C:\Users\Public\Desktop"
Users(1) = "Brian"
Users(2) = "Danny"
Users(3) = "Cory"
Users(4) = "Jess"

on error Resume Next

for i = 1 to 4

    StrDestinationLocation = "C:\Users\" & Users(i) & "\Desktop"

    'All text files will be copied to destination
    StrSourceFileName = "*.*"

    'Creating the file system object
    Set ObjFso = CreateObject("Scripting.FileSystemObject")

    'Copying the file
    ObjFso.CopyFile StrSourceLocation & "\" & StrSourceFileName, StrDestinationLocation & "\" , True
    if err.Number <> 0 then
        Msgbox "No files to move"
        WScript.Quit
    end if
Next

Set ObjFso = CreateObject("Scripting.FileSystemObject")
For Each file In ObjFso.GetFolder(StrSourceLocation).Files
    file.delete
Next

Set SH = WScript.CreateObject("Shell.Application") 
txtFolderToOpen = "C:\Users\" & users(1) & "\Desktop"
SH.Explore txtFolderToOpen 
Set SH = Nothing

答案2

我认为这只是巧合；这种行为在 Win7 中不应该改变。它仍然由安装程序控制。我当然没有看到这种情况发生。

相关内容