【HSP3】HSPでAppIDs(Application Identity)を設定してみる(その2) | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
// 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)
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX