//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetLogicalDriveStrings.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetLogicalDriveStrings
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, June, 4th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_VO_GetLogicalDriveStrings
External_Function WinAPI_GetLogicalDriveStrings "GetLogicalDriveStringsA" Kernel32.Dll DWord nBufferLength Pointer lpBuffer Returns Integer

Function VO_GetLogicalDriveStrings Desktop Returns String
    String sLogicalDrivesString
    Integer iLength
    
    ZeroString 255 to sLogicalDrivesString
    
    Move (WinAPI_GetLogicalDriveStrings (255, AddressOf (sLogicalDrivesString))) to iLength
    
    Function_Return (Left (sLogicalDrivesString, iLength))
End_Function // GetLogicalDriveStrings
#ENDIF