Bilgisayarlardaki Sürücülerin Listesi

DECLARE INTEGER GetLogicalDrives IN kernel32 

DECLARE INTEGER GetDriveType IN kernel32 STRING nDrive 

 

LOCAL nDrivesMask, nIndex, nShift, cDrive 

nDrivesMask = GetLogicalDrives() 

 

? "Available disk drives:" 

 

nIndex = 0 

DO WHILE .T. 

    nShift = BitLShift(1, nIndex) 

    cDrive = Chr(nIndex + 65) + ":" 

 

    IF BitAnd(nDrivesMask, nShift) = nShift 

        ? cDrive, GetDriveType(cDrive) 

    ENDIF 

 

    IF nShift > nDrivesMask 

        EXIT 

    ENDIF 

 

    nIndex = nIndex + 1 

ENDDO