possible bug avec flipbuffers() et la detection de lecteurs
Publié : mar. 27/nov./2007 19:30
ce code fonctionne parfaitement, je teste la présence d'un lecteur de carte microsd amovible (J: sans carte insérée mais si j'active le flipbuffers() mis en commentaire dans ce code
window me retourne un bug...
c'est etrange que modifier l'affichage interfere avec le systeme de fichier ...
window me retourne un bug...
c'est etrange que modifier l'affichage interfere avec le systeme de fichier ...
Code : Tout sélectionner
; detectusbkey by Droopy 28/11/05
; Return 1 if a Removable Media is detected ( Probably a USB Key ) / 0 instead
InitSprite()
main=OpenWindow(0,0,0,640,480,"diffpicture",#PB_Window_MinimizeGadget)
screen=OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
Procedure DetectUSBKey(n)
If RealDriveType_(n,0)= #DRIVE_REMOVABLE
ProcedureReturn 1
EndIf
EndProcedure
Repeat
WaitWindowEvent(1)
If DetectUSBKey(9) ; change 9 by the number of the drive (J: is 9)
Debug "Removable Drive Present";,#MB_ICONINFORMATION)
Else
Debug "Removable Drive absent";,#MB_ICONINFORMATION)
EndIf
; FlipBuffers()
ForEver