Private Declare Function SHDeleteKey Lib "shlwapi.dll" Alias "SHDeleteKeyA" (ByVal hkey As Long, ByVal pszSubKey As String) As Long Const REG_DWORD = 4 Const HKEY_LOCAL_MACHINE = &H80000001 Private Sub Command1_Click() Set w = CreateObject("wscript.shell") w.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", "ScDesktop" End Sub 这个不行