Macro BlockInput(bool)
BlockInput_(bool)
EndMacro
BlockInput(1)
Delay(3000)
BlockInput(0)
I fixed two functions. There it is not possible to get the size of the field to return data.
Procedure.s DriveGetLabel(Drive$)
Protected Label$
Label$=Space(#MAX_PATH+1)
If Not GetVolumeInformation_(Drive$,Label$,#MAX_PATH+1,0,0,0,0,0)
Procedure_Error = 1
ProcedureReturn ""
EndIf
ProcedureReturn Label$
EndProcedure
MessageRequester("Disk label", DriveGetLabel("C:\"))
Procedure.s DriveGetFileSystem(Drive$)
Protected FileSystem$
FileSystem$=Space(#MAX_PATH+1)
If GetVolumeInformation_(Drive$,0,0,0,0,0,@FileSystem$,#MAX_PATH+1)
ProcedureReturn FileSystem$
Else
Procedure_Error = 1
ProcedureReturn "1"
EndIf
EndProcedure
MessageRequester("File system type", DriveGetFileSystem("C:\"))