HSPTV!掲示板

タスクトレイではなく、タスクバーにピン留めを打つプログラムを作成したいのですが
言語違いの為、全く理解できません
自分自身をタスクバーにピン留めする方法をHSPに翻訳して頂ける方
解読してください!
よろしくお願いします

以下参考サイトです

https://infra20th.wordpress.com/2014/07/03/windows-8-1-update%E3%81%AE%E3%82%BF%E3%82%B9%E3%82%AF%E3%83%90%E3%83%BC%E3%81%AB%E3%82%A2%E3%83%97%E3%83%AA%E3%82%92%E3%83%94%E3%83%B3%E7%95%99%E3%82%81%E3%81%99%E3%82%8B/

https://www.rootlinks.net/2013/09/29/vbscript-script-to-pin-items-to-start-menu-in-windows-8/

http://d.hatena.ne.jp/chi-bd/20130126/1359190273

参考サイトを見て昔作ったモジュールと殆ど変わらなかったので貼っておきますね〜(*´ω｀*)

#define global FALSE	0
#define global TRUE		1

#module
	#defcfunc ComExist var _comobj
		if (vartype(_comobj) == 6){
			return varuse(_comobj)
		}
		return FALSE
#global

#module
	// PinToTaskbar FullPath, Flag
	
	// FullPath	= ピン留めしたいプログラムのフルパス
	// Flag		= 1でピン留め、それ以外はピン留めを外す
	
	#deffunc PinToTaskbar str strlPath, int nFlag, local MenuItem, local strFolder, local strFile, local hr
		exist@hsp strlPath
		if (strsize == -1) : return FALSE
	
		if (nFlag == TRUE){
			MenuItem= "タスク バーに表示する(&K)"
		}else{
			MenuItem= "タスク バーに表示しない(&K)"
		}
		
		strFolder= getpath(strlPath, 32)
		strFile  = getpath(strlPath, 8)
	
		newcom objShell, "Shell.Application"
		
		objFolder= objShell("Namespace", strFolder) : hr= ComExist(objFolder)
		if (hr){
			
			objFolderItem= objFolder("ParseName", strFile) : hr= ComExist(objFolderItem)
			if (hr){
				
				colVerbs= objFolderItem("Verbs") : hr= ComExist(colVerbs)
				if (hr){
		
					repeat colVerbs("Count")
						itemverb= colVerbs("Item", cnt) : hr= ComExist(itemverb)
						if (hr){
					
							if  (itemverb("Name") == MenuItem){
								itemverb->"DoIt"
								delcom itemverb
								break
							}
							delcom itemverb
						}					
					loop
					
					delcom colVerbs
				}
				delcom objFolderItem
			}
			delcom objFolder
		}
		delcom objShell
		return hr
#global


PinToTaskbar "C:\\Windows\\system32\\cmd.exe", 1

C:\Users\ユーザー名\AppData\Roaming\
Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar
にショートカットファイルを配置するだけじゃだめなのかな？
%appdata%の中身って規則性ないかな？
(ユーザー名はsysinfo(1)で取得できます)

ありがとうございます！
自分の環境はWindows8でして、
タスク バーに表示する(K)ではなく
タスク バーにピン留め(K)でしたので、
変更すれば適用できました！

Windows7の場合は前者のようなので
OSによっても違うことが分かりました

Windows10 64bitで試した所、ピン留めを外す事は出来るのですが
ピン留めをする事ができませんでした。
一文字一句間違いのないようにしたのに何故なんでしょう