; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=2480&highlight= ; Author: bingo ; Date: 07. October 2003 ; Check for a medium in a drive, without getting the requester "Please insert...." Root$="a:\" ; Root Directory NUR mit "\" VNB$=Space(100) ; Volume Name Buffer VNS=100 ; Volume Name Size VSN=0 ; Volume Serial Number (Hex) MCL=0 ; Max.File Name Len FSF=0 ; File System Flags FSNB$=Space(100) ; File System Name Buffer (FAT/NTFS usw) FSNS=100 ; File System Name BufferSize GetVolumeInformation_(@Root$,@VNB$,VNS,@VSN,@MCL,@FSF,@FSNB$,FSNS) ; Man kann die Variablen auswerten (interessant ist die Volumen Serialnumber, ; mit der man viel mehr machen könnte !). ; Den Laufwerkstyp kann man mit GetDriveType ermitteln ... Debug VNB$ Debug Hex(VSN) ; give 0, if there is no disk ; ExecutableFormat=Windows ; FirstLine=1 ; EOF