December 1, 2005 - WinTask - GetLogicalDriveStrings

'
' GetLogicalDriveStrings
'

'Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

dim ptr as unsigned
dim pt2 as unsigned
ptr=allocate(100)
pokestring(ptr,"                                                                                                    ",1)

a=External("kernel32","GetLogicalDriveStringsA",100,ptr)
msgbox(str$(a))
pt2=ptr+0
buf$=peekstring$(pt2)
msgbox("["+Buf$+"]")