RelaxTools Addin for Excel 2013/2016/2019/Office365(Desktop)

FlashWindowEx(64bit)のFLASHWINFO

FlashWindowEx(64bit)のFLASHWINFO

いまどき、Officeの64bit でAPIを使う人は少ないようです。
FlashWIndowEx を 64bit でも使いたくていろいろググったのですが情報が皆無。
FLASHWINFO のどれがLongPtrになったのかわからず。
以前、64bit版の ApiViewr とかあったんだけどどっか行っちゃったし。
いろいろパターンを変えてやってみたらなんとか動作したので上げておきます。
まさか、dwTimeout が LongPtr だったとは・・・。

    Private Declare PtrSafe Function FlashWindowEx Lib "user32.dll" (pfwi As FLASHWINFO) As LongPtr
    Private Type FLASHWINFO
        cbSize As LongPtr
        hWnd As LongPtr
        dwFlags As Long
        uCount As Long
        dwTimeout As LongPtr
    End Type
Exit mobile version