>>69
私の環境では、NumGetのところを
DispStat := NumGet(lParam + 16 + 4,0,"UInt")
にすると Display Off の表示が確認できましたよ。