XProfan

 {$cleq}
windowstyle 1 | 2 | 4 | 8 | 512
cls
userMessages wm_close,wm_user+wm_deviceChange
hWnd.SubClass.wm_deviceChange.toUserMessage(1,0,0,0)//"service" einschalten

While 1

    WaitInput

    select uMessage

        caseof 16 : break

        caseof wm_user+wm_deviceChange : print "Laufwerksbuchstabe:"+chr$(ulParam+64)

    endSelect

Wend

hWnd.SubClass.wm_deviceChange.toUserMessage(0,0,0,0)//"service" ausschalten
End

nProc hWnd.SubClass.wm_deviceChange.toUserMessage(long a,b,c,d)

    long owp=getWindowLong(hWnd,gwl_userData)

    if b=0 and c=0 and d=0

        if a=1

            return setWindowLong(hWnd,gwl_userData,setWindowLong(hWnd,gwl_wndProc,procaddr(hWnd.SubClass.wm_deviceChange.toUserMessage,4)))

        elseif a=0

            return setWindowLong(hWnd,gwl_wndProc,owp)

        endif

    else

        if a=-1

            whileLoop 0,25

                if testbit(b,loop)

                    a=loop+1
                    break

                endif

            wend

            return a

        endif

        if b=wm_deviceChange and c=$8000// dbt_deviceArrival

            case long(d,4)=2 : sendMessage(hWnd,wm_user+wm_deviceChange,,hWnd.SubClass.wm_deviceChange.toUserMessage(-1,long(d,12),0,0))// dbt_devTyp_volume

        endif

        return callWindowProc(owp,a,b,c,d)

    endif

endproc