[Func] Attaché à la barre des taches - Pin to TaskBand
Posté : jeu. 12 déc. 2013 11:23
Bonjour,
je partage avec une petite fonction bien pratique : Accroché/décroché quelque chose à la barre des taches.
J'ai galéré et c'est pour ça que je partage ^^. Vous me direz que c'est pas grand chose, mais je suis fier de moi
Pour ATTACHER à la barre des taches :
Pour DETACHER à la barre des taches :
Ces fonctions dépendent de la langue du system. J'ai laisse un consoleWrite pour que ça soit plus claire.
Cordialement.
Zazapeta.
je partage avec une petite fonction bien pratique : Accroché/décroché quelque chose à la barre des taches.
J'ai galéré et c'est pour ça que je partage ^^. Vous me direz que c'est pas grand chose, mais je suis fier de moi
![Cool 8)](./images/smilies/icon_cool.gif)
Pour ATTACHER à la barre des taches :
Code : Tout sélectionner
Func PinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb in $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
if BitOR(StringReplace($itemVerb.name,"&","") == "Pin to Taskbar",StringReplace($itemVerb.name,"&","") == "Épingler à la barre des tâches") then $itemVerb.DoIt
Next
EndFunc
Code : Tout sélectionner
Func UnpinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb in $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
if BitOR(StringReplace($itemVerb.name,"&","") == "Unpin from Taskbar",StringReplace($itemVerb.name,"&","") == "Détacher de la barre des tâches") then $itemVerb.DoIt
Next
EndFunc
Cordialement.
Zazapeta.