XProfan

Español

IF, Beitrag=57167, Zeitpunkt=21.05.2010

CLS
userMessages 16//wm_close
subClass %hWnd,1

While 1

    WaitInput
    case %uMessage=16 : break

Wend

End

subClassProc

    if subClassMessage(%hWnd,537) and (&sWParam=$8000)// WM_DEVICECHANGE and DBT_DEVICEARRIVAL

        print "Size:",long(&sLparam,0)
        print "Type:",long(&sLparam,4)
        case long(&sLparam,4)=2 : print "Laufwerksbuchstabe:",unitMask2DriveLetter(long(&sLparam,12))//DBT_DEVTYP_VOLUME

    endif

endproc

proc unitMask2DriveLetter

    parameters unitMask&
    declare s$

    whileLoop 26

        if (unitMask& & 1)=1

            s$=chr$(&loop+64)
            break

        endif

        unitMask&=unitMask& >> 1

    wend

    return s$

ENDPROC

...

22.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Mit uno nativen Behelfsfunktion puede ser se el Laufwerksbuchstaben auch como UserMessage zustellen dejar.
Kompilieren Marca Separación

 {$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

ref='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

wm_dchng2umsg.exe	443 kB

Hochgeladen:	23.05.2010

Ladeanzahl:
		Descargar

23.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

salvo una weißem Ventana seh Yo nichts

es el así gewollt?

Gruß Detlef Tussing
Windows XP, XProfan 10

24.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sí, pero si Usted una USB-Gerät ansteckst y Windows dafür una Wechseldatenträgerlaufwerk producido, Luego se dies gemeldet y el Laufwerk de obigem Code adecuado.

24.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

En

mensajes de los usuarios 16//wm_close = Fehlermeldung Division por 0
subClass %hWnd,1 = Fehlermeldung subClass unbekannter Befehl

meckert él ya

como Yo mich con diesem Thema todavía no beschäftigt habe,
lo aber muy interessant finde
sería I, con algo Ayuda vieleicht algo mehr encima el USB-Stick herausfinden.

Gruß Detlef Tussing
Windows XP, XProfan 10

25.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Der de me gepostete Code es XProfan11-Code, ldr. no kompatibel con XProfan 10.

mensajes de los usuarios 16//wm_close wäre entonces mensajes de los usuarios 16 //wm_close

Hier se // de XProfan10 no como REM erkannt (qué aber auch sólo auffällt, si uno no XPSE vorgeschaltet ha, de otra manera son todos Rem-Varianten disponible).

>> subClass %hWnd,1 = Fehlermeldung subClass unbekannter Befehl subClass %hWnd,1

Der Befehl SubClass existiert de XProfan 11 - Usted könntest imho aber el 2. Code (aquí en diesem Hilo) nutzen (el con el NProc) welcher rein como UserMessage weiterleitet - Yo persönlich sería auch sólo diesem 2. Code trabajo como él "verlustfrei" arbeitet en el Gegensatz a SubClass-Befehl-Variante.

25.05.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita