XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
CD  - Feststellen, ob CD (oder LW) das Autorun-Feature unterstützt
Lauffähig ab Profan-Version 6.6
PRFellow-Vorlage
Autor: Thomas Hölzer
a) Feststellen, ob sich eine Audio-CD im LW befindet
b) Feststellen ob CD (oder LW) das AutoRun-Feature unterstützt
Parameter: Bezeichner des CD-ROM-LWs:
(mindestens Buchstabe und Doppelpunkt: D:
(Slash darf auch sein: D:)
Das Ergebnis steht in @%(0) : 0=Nein, 1=Ja

Proc IsAudioCD

    Parameters drive$
    drive$=Upper$(Mid$(drive$,1,2));*.CDA
    FindFirst$(drive$)

    If Gt(%IORESULT,0)

        Return 0

    Else

        Return 1

    EndIf

EndProc

Proc SupportsAutoRun

    Parameters drive$
    drive$=Upper$(Mid$(drive$,1,2));AUTORUN.INF
    FindFirst$(drive$)

    If Gt(%IORESULT,0)

        Return 0

    Else

        Return 1

    EndIf

EndProc

Beispiel
Cls
SupportsAutoRun D:
Print %(0)
WaitInput

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
CD: Feststellen ob CD (oder LW) das AutoRun-Feature unterstützt
PRFellow-Vorlage
Autor: Thomas Hölzer
a) Feststellen, ob sich eine Audio-CD im LW befindet
b) Feststellen ob CD (oder LW) das AutoRun-Feature unterstützt
Parameter: Bezeichner des CD-ROM-LWs:
(mindestens Buchstabe und Doppelpunkt: D:
(Slash darf auch sein: D:)
Das Ergebnis steht in @%(0) : 0=Nein, 1=Ja

Proc IsAudioCD

    Parameters drive$
    drive$=Upper$(Mid$(drive$,1,2));*.CDA
    FindFirst$(drive$)

    If Gt(%IORESULT,0)

        Return 0

    Else

        Return 1

    EndIf

EndProc

Proc SupportsAutoRun

    Parameters drive$
    drive$=Upper$(Mid$(drive$,1,2));AUTORUN.INF
    FindFirst$(drive$)

    If Gt(%IORESULT,0)

        Return 0

    Else

        Return 1

    EndIf

EndProc

Beispiel
Cls
IsAudioCD E:
Print %(0)
SupportsAutoRun E:
Print %(0)
WaitInput