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