HSPでAppIDs(Application Identity)を設定してみる(その2)。ウィンドウというか、タスクバーにアイコンがない状態で、SetCurrentProcessExplicitAppUserModelID()を実行しないとダメ。1度表示した場合でも、gsel -1 を使えば大丈夫。#packopt hide 1 しておくのが確実ですが。
HSPでAppIDs(Application Identity)を設定してみる(その2)。ウィンドウというか、タスクバーにアイコンがない状態で、SetCurrentProcessExplicitAppUserModelID()を実行しないとダメ。1度表示した場合でも、gsel -1 を使えば大丈夫。#packopt hide 1 しておくのが確実ですが。
// http://togarasi.wordpress.com/2009/10/19/win7-%E3%82%BF%E3%82%B9%E3%82%AF%E3%83%90%E3%83%BC%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%EF%BC%88appids%EF%BC%89/
// 参考にしました
#packopt name "test1"
;#packopt name "test2"
;#packopt hide 1
#uselib "shell32"
#func SHGetPropertyStoreForWindow "SHGetPropertyStoreForWindow" sptr, sptr, sptr
#func GetCurrentProcessExplicitAppUserModelID "GetCurrentProcessExplicitAppUserModelID" wptr
#func SetCurrentProcessExplicitAppUserModelID "SetCurrentProcessExplicitAppUserModelID" wstr
wait 100
gsel 0, -1 ; 非表示の状態で↓を実行しないと正しく反映されない(#packopt hide 1を使うなら確実)
SetCurrentProcessExplicitAppUserModelID "net.hinekure.test.hsp3"
mes strf("0x%08x, %d", stat, stat)
gsel 0, 1
wResPtr = 0
GetCurrentProcessExplicitAppUserModelID varptr(wResPtr)
mes strf("0x%08x, %d", stat, stat)
dupptr wRes, wResPtr, 128, 2
mes cnvwtos(wRes)