锁定到任务栏问题

xianglang

在 Windows 2000/XP 的时代，任务栏的快捷方式，只要将它复制到用户目录下的 Microsoft\Internet Explorer\Quick Launch 里面去，就立即生效，可以在任务栏看到图标了。但是在 Windows 7/10 里面，自行复制进去 AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar 的快捷方式却不会在任务栏里显示，系统重启了也不会显示——但是如果是直接用右键锁定到任务栏功能时却立竿见影。

真是神了，连这样的事情微软也留一手？究竟是哪个地方出了问题？

a583091790

我也正需要了解琢磨这个问题，到底怎么样快速恢复任务栏的图标排列

窄口牛

图标加注册表。

9zhmke

参考下转自AU3论坛的例子：

1. 
   
2. 
   
3. ;例子：添加计算器程序
   
4. _ShellExecute_TaskBarBtnAdd(@SystemDir & '\calc.exe', '我的计算器')
   
5. If [url=home.php?mod=space&uid=1261]@error[/url] Then
   
6.         Exit MsgBox(48, '', '添加错误 = ' & @error)
   
7. Else
   
8.         MsgBox(64, '', '已添加')
   
9. EndIf
   
10. 
    
11. ;例子：删除计算器程序
    
12. _ShellExecute_TaskBarBtnDel('我的计算器')
    
13. If @error Then
    
14.         MsgBox(48, '', '删除错误 = ' & @error)
    
15. Else
    
16.         MsgBox(64, '', '已删除')
    
17. EndIf
    
18. 
    
19. Func _ShellExecute_TaskBarBtnAdd($sPath, $sName = '')        ;将快捷方式或程序锁定到任务栏
    
20. ;~         ###(lnk快捷方式文件或程序文件, 程序文件可指定的显示名)
    
21.         Local $fLnkTmp = ''
    
22.         If Not StringRegExp($sPath, '(?i)\.lnk) Then
    
23.                 If Not FileExists($sPath) Then Return SetError(1, 0, 0)
    
24.                 $sName = StringRegExpReplace($sName, '(?i)^\s+|\s+$|\.lnk\s*, '')
    
25.                 If $sName = '' Then
    
26.                         $fLnkTmp = @TempDir & '\' & StringRegExpReplace($sPath, '^.*\\|\.\w+, '') & '.lnk'
    
27.                 Else
    
28.                         If StringRegExp($sName, '[\\/:*?"<>|]') Then Return SetError(2, 0, 0)
    
29.                         $fLnkTmp = @TempDir & '\' & $sName & '.lnk'
    
30.                 EndIf
    
31.                 If Not FileCreateShortcut($sPath, $fLnkTmp) Then Return SetError(3, 0, 0)
    
32.                 $sPath = $fLnkTmp
    
33.         Else
    
34.                 Local $aTmp = FileGetShortcut($sPath)
    
35.                 If @error Then Return SetError(4, 0, 0)
    
36.                 If Not FileExists($aTmp[0]) Then Return SetError(5, 0, 0)
    
37.         EndIf
    
38.         Local $TaskBarLnk = @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\' & StringRegExpReplace($sPath, '^.*\\', '')
    
39.         If $TaskBarLnk = $sPath Then Return SetError(6, 0, 0)
    
40.         If FileExists($TaskBarLnk) Then ShellExecuteWait($TaskBarLnk, '', '', 'taskbarunpin')
    
41.         ShellExecuteWait($sPath, '', '', 'taskbarpin')
    
42.         If @error Then
    
43.                 If $fLnkTmp <> '' Then FileDelete($fLnkTmp)
    
44.                 Return SetError(7, 0, 0)
    
45.         EndIf
    
46.         If $fLnkTmp <> '' Then FileDelete($fLnkTmp)
    
47. EndFunc   ;==>_ShellExecute_TaskBarBtnAdd
    
48. Func _ShellExecute_TaskBarBtnDel($sLnkName)        ;删除任务栏上指定名称的锁定程序
    
49. ;~         ###(lnk文件名即显示名)
    
50.         $sLnkName = StringRegExpReplace($sLnkName, '(?i)^.*\\|^\s+|\s+$|\.lnk\s*, '')
    
51.         If $sLnkName = '' Then Return SetError(1, 0, 0)
    
52.         Local $TaskBarLnk = @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\' & $sLnkName & '.lnk'
    
53.         If Not FileExists($TaskBarLnk) Then Return SetError(2, 0, 0)
    
54.         ShellExecuteWait($TaskBarLnk, '', '', 'taskbarunpin')
    
55.         If @error Then Return SetError(3, 0, 0)
    
56. EndFunc   ;==>_ShellExecute_TaskBarBtnDel
    

复制代码

xianglang

好复杂……

879792799

好复杂……

laonat

谢谢分享

9527sss

#在这里快 感谢分享速回复#

a583091790

用 PinToTaskbar 解决了
http://bbs.wuyou.net/forum.php?m ... d=433062&extra=

wuidy

不主动进行图标刷新？

xianglang

wuidy 发表于 2022-12-5 18:36
不主动进行图标刷新？

不清楚，反正我离线复制到那个位置，重启N次都没出现。

千城

楼主应该是想封装系统的时候直接添加任务栏，PinToTaskbar是系统启动后的，不过也可以，加个启动项就好了