XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke: Typ eines Laufwerkes ermitteln
Def GetDriveType(1) !KERNEL32, GetDriveTypeA
declare lpRootPathName#

proc GetDriveType

    Aufruf: GetDriveType Stammverzeichnis
    Beispiel: GetDriveType a:
    Rückgabewerte dieser Funktion:
    DRIVE_UNKNOWN 0 - Typ des Datenträgers kann nicht ermittelt werden
    DRIVE_NO_ROOT_DIR 1 - Datenträger existiert nicht
    DRIVE_REMOVABLE 2 - Wechseldatenträger (Floppy, ZIP-Drive, ...)
    DRIVE_FIXED 3 - Festplatte
    DRIVE_REMOTE 4 - Netzlaufwerk
    DRIVE_CDROM 5 - CD-ROM
    DRIVE_RAMDISK 6 - RAMDisk
    parameters Drive$
    declare DriveType&
    dim lpRootPathName#, add(len(Drive$), 1)
    String lpRootPathName#, 0 = Drive$
    let DriveType& = GetDriveType(lpRootPathName#)
    dispose lpRootPathName#
    return DriveType&

endproc

proc PrintDriveType

    Parameters Drive$
    GetDriveType Drive$

    If equ(&(0), 0)  DRIVE_UNKNOWN

        print Laufwerkstyp von Laufwerk, Drive$, unbekannt

    ElseIf equ(&(0), 1)  DRIVE_NO_ROOT_DIR

        print Laufwerk, Drive$, existiert nicht

    ElseIf equ(&(0), 2)  DRIVE_REMOVABLE

        print Laufwerk, Drive$, ist ein Wechseldatenträger

    ElseIf equ(&(0), 3)  DRIVE_FIXED

        print Laufwerk, Drive$, ist eine Festplatte

    ElseIf equ(&(0), 4)  DRIVE_REMOTE

        print Laufwerk, Drive$, ist ein Netzlaufwerk

    ElseIf equ(&(0), 5)  DRIVE_CDROM

        print Laufwerk, Drive$, ist ein CD-ROM Laufwerk

    ElseIf equ(&(0), 6)  DRIVE_RAMDISK

        print Laufwerk, Drive$, ist eine RAM-Disk

    EndIf

endproc

Cls
PrintDriveType A:
PrintDriveType B:
PrintDriveType C:
PrintDriveType D:
PrintDriveType E:
PrintDriveType F:
PrintDriveType G:
PrintDriveType H:
waitkey