个人登录界面 怎么在登录档里建“isshortcut”字串值
怎么在登录档里建“isshortcut”字串值
怎么在登录档里建“isshortcut”字串值
在登录档里建“isshortcut”字串值方法:
1、开始--执行--cmd--notepad;
2、开启“记事本”,编辑如下内容(复制即可)
REGEDIT4
;恢复快捷方式的箭头
[HKEY_CLASSES_ROOTlnkfile]
"IsShortcut"=""
[HKEY_CLASSES_ROOTpiffile]
"IsShortcut"=""
储存型别为所有档案。
储存档名为:恢复快捷方式的箭头.reg
双击执行此档案汇入 登录档
重启计算机 搞定!
(不行的话试试下面的手动法)
-------------------------------------------
-------------------------------------------
3、点开始-执行-输入regedit,就能开启登录档了!
(1)开启HKEY_CLASSES_ROOTlnkfile子项。
(2)在lnkfile子项中建立IsShortcut字串值项,IsShortcut值项用来控制是否显示普通应用程式和资料档案快捷方式中的小箭头。
(3)开启HKEY_CLASSES_ROOTpiffile子项。
(4)在piffile子项中建立IsShortcut字串值项,IsShortcut值项用来控制是否显示MS_DOS程式快捷方式的小箭头。
(5)退出登录档编辑器。
不想显示的话删掉那两个子项即可。
如何用程式码删除登录档里字串值? 如:把HKEY_CLASSES_ROOTlnkfile里的IsShortcut字串值删除。
可能你的电脑里面的重要档案被你不小心删除,或者是电脑中毒,软体有外挂导致的,如果对你使用电脑有麻烦!以下是解决办法:1、确认登录档能用,开启--执行,输入“regedit.exe”,“编辑”里搜寻:HKEY_CLASSES_ROOTlnkfileshellopenmand,删掉右面出现的字串。2、如果再回到开启桌面图示时出现:“该档案没有程式与之关联来执行该操作,请在控制面板的资料夹选项中建立关联”字样时的解决方法为如下:用记事本复制以下全部程式码,将文字的“.txt”修改为“.reg”,双击汇入就OK了。程式码如下:Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT.lnk]@=lnkfile[HKEY_CLASSES_ROOT.lnkShellEx][HKEY_CLASSES_ROOT.lnkShellEx]@=[HKEY_CLASSES_ROOT.lnkShellEx]@=[HKEY_CLASSES_ROOT.lnkShellEx]@=[HKEY_CLASSES_ROOT.lnkShellEx]@=[HKEY_CLASSES_ROOT.lnkShellNew]Command=rundll32.exe appwiz.cpl,NewLinkHere %1[HKEY_CLASSES_ROOTlnkfile]@=快捷方式EditFlags=dword:00000001IsShortcut=NeverShowExt=[HKEY_CLASSES_ROOTlnkfileCLSID]@=[HKEY_CLASSES_ROOTlnkfileshellex][HKEY_CLASSES_ROOTlnkfileshellexContextMenuHandlers][HKEY_CLASSES_ROOTlnkfileshellexContextMenuHandlersOffline Files]@=[HKEY_CLASSES_ROOTlnkfileshellexContextMenuHandlers][HKEY_CLASSES_ROOTlnkfileshellexDropHandler]@=[HKEY_CLASSES_ROOTlnkfileshellexIconHandler]@=[HKEY_CLASSES_ROOTlnkfileshellexPropertySheetHandlers][HKEY_CLASSES_ROOTlnkfileshellexPropertySheetHandlersShimLayer Property Page]@=经过以上一番折腾后 您再去开启桌面的东东看 OK了吧二、如果进入登录档,提示“登录档被管理员禁用”,则操作如下:1、执行——gpedit.msc——使用者配置——管理模板——系统——阻止访问登录档编辑器(禁用登录档编辑工具)——禁用2、如果1不行,则可尝试或者自己动手制作一个解除登录档锁定的工具,就是用记事本编辑一个任意名字的.reg档案,比如recover.reg,内容如下(贴上到记事本):REGEDIT4[HKEY_CURRENT_USERSofareMicrosoftWindowsCurrentVersionPoliciesSystem]DisableRegistryTools=dword:00000000然后双击 recover.reg ,yes.即可。3.如果1和2全部失败,则建一个inf档案,内容如下:[Version]Signature= NT$[DefaultInstall]ADDREG=Myadd[Myadd];解禁登录档编辑器HKCU,SofareMicrosoftWindowsCurrentVersionPoliciesSystem,DisableRegistryTools,1,0
为什么点选桌面淘江湖图示怎么会跳出这个视窗???高人请回答。。。
在登录档里新建字串值再删除没事吧?
没事
用vb把登录档run下新建字串值,怎么加?
VB的SaveSetting、GetSetting、DeleteSetting等语句可以存取登录档,但它们只能存取HKEY_CURRENT_USERSofareVB and VBA Programs下面的子键。如果要访问整个登录档,需要呼叫API。
可以参考以下程式:
Option Explicit
Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259
Global Const KEY_ALL_ACCESS = &H3F
Global Const REG_OPTION_NON_VOLATILE = 0
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)
Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String)
' Description:
' This Function will Delete a key
'
' Syntax:
' DeleteKey Location, KeyName
'
' Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
' , HKEY_USERS
'
' KeyName is name of the key you wish to delete, it may include subkeys (example "Key1SubKey1")
Dim lRetVal As Long 'result of the SetValueEx function
Dim hKey As Long 'handle of open key
'open the specified key
'lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteKey(lPredefinedKey, sKeyName)
'RegCloseKey (hKey)
End Function
Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
' Description:
' This Function will delete a value
'
' Syntax:
' DeleteValue Location, KeyName, ValueName
'
' Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
' , HKEY_USERS
'
' KeyName is the name of the key that the value you wish to delete is in
' , it may include subkeys (example "Key1SubKey1")
'
' ValueName is the name of value you wish to delete
Dim lRetVal As Long 'result of the SetValueEx function
Dim hKey As Long 'handle of open key
'open the specified key
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteValue(hKey, sValueName)
RegCloseKey (hKey)
End Function
Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
End Select
End Function
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
Dim h As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
On Error GoTo QueryValueExError
' Determine the size and type of data to be read
lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, h)
If lrc <> ERROR_NONE Then Error 5
Select Case lType
' For strings
Case REG_SZ:
sValue = String(h, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, h)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, h)
Else
vValue = Empty
End If
' For DWORDS
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, h)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'all other data types not supported
lrc = -1
End Select
QueryValueExExit:
QueryValueEx = lrc
Exit Function
QueryValueExError:
Resume QueryValueExExit
End Function
Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
' Description:
' This Function will create a new key
'
' Syntax:
' QueryValue Location, KeyName
'
' Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
' , HKEY_USERS
'
' KeyName is name of the key you wish to create, it may include subkeys (example "Key1SubKey1")
Dim hNewKey As Long 'handle to the new key
Dim lRetVal As Long 'result of the RegCreateKeyEx function
lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
RegCloseKey (hNewKey)
End Function
Sub Main()
'Examples of each function:
'CreateNewKey HKEY_CURRENT_USER, "TestKeySubKey1SubKey2"
'SetKeyValue HKEY_CURRENT_USER, "TestKeySubKey1", "Test", "Testing, Testing", REG_SZ
'MsgBox QueryValue(HKEY_CURRENT_USER, "TestKeySubKey1", "Test")
'DeleteKey HKEY_CURRENT_USER, "TestKeySubKey1SubKey2"
'DeleteValue HKEY_CURRENT_USER, "TestKeySubKey1", "Test"
End Sub
Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
' Description:
' This Function will set the data field of a value
'
' Syntax:
' QueryValue Location, KeyName, ValueName, ValueSetting, ValueType
'
' Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
' , HKEY_USERS
'
' KeyName is the key that the value is under (example: "Key1SubKey1")
'
' ValueName is the name of the value you want create, or set the value of (example: "ValueTest")
'
' ValueSetting is what you want the value to equal
'
' ValueType must equal either REG_SZ (a string) Or REG_DWORD (an integer)
Dim lRetVal As Long 'result of the SetValueEx function
Dim hKey As Long 'handle of open key
'open the specified key
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)
End Function
Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
' Description:
' This Function will return the data field of a value
'
' Syntax:
' Variable = QueryValue(Location, KeyName, ValueName)
'
' Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
' , HKEY_USERS
'
' KeyName is the key that the value is under (example: "SofareMicrosoftWindowsCurrentVersionExplorer")
'
' ValueName is the name of the value you want to aess (example: "link")
Dim lRetVal As Long 'result of the API functions
Dim hKey As Long 'handle of opened key
Dim vValue As Variant 'setting of queried value
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
'MsgBox vValue
QueryValue = vValue
RegCloseKey (hKey)
End Function
登录档里DWORD值和字串值等都有什么作用
是决定该项在系统登录档中是否产生哪项作用的作用.

登录档中“字串值”是什么含义?
在登录档中,字串值一般用来表示档案的描述和硬体的标识。通常由字母和数字组成,也可以是汉字,最大长度不能超过255个字元。
简单点来说吧,一般来讲字元窜表达的是位置
WORDS表达的是属性
就比如显示隐藏档案里RegPath这个字元窜里的值SofareMicrosoftWindowsCurrentVersionExplorerAdvanced就是这个键值登录档所在的位置
CheckedValue里就可以表达属性,0就是不启用显示隐藏资料夹
1就是起用
当然登录档里的字元窜和DWORD值的运用远不止只是这样,很复杂,我也在学习中 哈哈
登录档中“多字串值”是什么含义?
多重字串(REG_MULTI_SZ),一般包含格式可被使用者读取的列表或者具有多值的值是这个型别.
登录档中“可扩充字串值”是什么含义?
可扩充字串值:
表示可以展开的字串型别。某些键值使用环境变数,类似于批处理档案。例如,一个字串包括%SystemRoot%System32,那么其中的%SystemRoot%的长度就由系统自己分配,因而字串是变长的,其扩充套件结果要传递给键值,%SystemRoot%是一个标准环境变数,包含着Windows XP的安装路径、驱动器和目录。修改该资料的方式与修改字串值项同。
为什么我的登录档中找不到lnkfile和piffile子顶中的IsShortcut字串值 ?
找不到就自己新增嘛 一样的
我想删除图示上的箭头,可是在登录档资讯里找不到isshortcut”字串值,怎么办
如果没有这样的字串资讯,你可以自己手动新增一个然后修改相应的值。
你也可以用超级兔子这款系统软体来修改。它不仅仅可以修改快捷方式的图示箭头。还有很多功能可以修改,例如隐藏控制面板的某些东西不给其他人看到等等。用处很大。