win7 将程序在任务栏固定或取消固定（au3） my code

#;****参数创建于****#=n#=None#;****参数创建于****##(@'

otepad.exe')Func_PinTaskbar($File,$Pin=True)If@OSBuild7600ThenReturnSetError(1);Windows7onlyIfNotFileExists($File)ThenReturnSetError(2)local$sFolder=StringRegExpReplace($File,"(^.*\\)(.*)","\1")local$sFile=StringRegExpReplace($File,"^.*\\","")local$oShell=ObjCreate("Shell.Application")local$oFolder=$oShell.NameSpace($sFolder)local$oFolderItem=$oFolder.ParseName($sFile)local$oFolderItemVerbs=$oFolderItem.Verbslocal$hInstance=_WinAPI_LoadLibraryEx("shell32.dll",$LOAD_LIBRARY_AS_DATAFILE)local$DoVerb=''If$hInstanceThenIF$Pin=1Thenlocal$DoVerb=_WinAPI_LoadString($hInstance,5386)Elselocal$DoVerb=_WinAPI_LoadString($hInstance,5387)EndIf_WinAPI_FreeLibrary($hInstance)EndIfIF$DoVerb=''ThenReturnSetError(3);$DoVerbstringcouldn'treceivedFor$i=0To$oFolderItemVerbs.Count-1If$oFolderItemVerbs.Item($i).Name=$DoVerbThen$oFolderItemVerbs.Item($i).DoItReturnEndIfNextReturnSetError(4);$DoVerbstringnotinmenuEndFunc

程序借助Shell模拟实现了用户的操作，但用户无任何感知，相当于静默实现的。_PinTaskbar函数第一个参数是你要固定或取消固定的程序，第二个参数是一个带有默认值的参数，为True是固定到任务栏，为False是从任务栏取消固定。要注意的是，此功能在Win10上并不生效。