※行頭スペースを全角にしています
// このUWSCスクリプトを実行中のタスクバーへの表示状態を変更
// タスクバーに表示 True 非表示 False を設定する
// パラメータなし(bShow＝-1)の場合は表示状態かどうか返す
FUNCTION ShowOnTaskbar(bShow = -1)
　DIM idUWSC = GETID(GET_THISUWSC_WIN,,0.1)
　DIM exstyleUWSC = GetWindowLongA(IDTOHND(idUWSC), GWL_EXSTYLE)
　DIM styleUWSC = GetWindowLongA(IDTOHND(idUWSC), GWL_STYLE)
　IFB -1=bShow THEN
　　IFB STATUS(idUWSC, ST_VISIBLE) THEN
　　　RESULT = TRUE
　　ELSE
　　　RESULT = FALSE
　　ENDIF
　ELSE
　　IFB bShow THEN
　　　exstyleUWSC = exstyleUWSC or WS_EX_TOOLWINDOW
　　　styleUWSC = SW_SHOW
　　ELSE
　　　exstyleUWSC = exstyleUWSC and ($FFFFFFFF XOR WS_EX_TOOLWINDOW)
　　　styleUWSC = SW_HIDE
　　ENDIF
　　SetWindowLongA(IDTOHND(idUWSC), GWL_EXSTYLE, exstyleUWSC)
　　ShowWindow(IDTOHND(idUWSC), styleUWSC)
　　RESULT = exstyleUWSC
　ENDIF
FEND