QDrive Composant

QDrive Proprietés

Champs	Type	L/E	Defaut
Name	ARRAY OF STRING	L
	Nom des lecteurs présent
Count	INTEGER	L
	Nombre de lecteurs présent

QDrive Methodes

Methode	Type	Description	Parametres
GetType	FUNCTION(index&) as long	retourne le type de lecteur.	1
		Valeurs possible:DRIVE_REMOVABLE (2)                           DRIVE_FIXED(3)                           DRIVE_REMOTE(4)                           DRIVE_CDROM(5)                           DRIVE_RAMDISK(6)
GetFreeSpace	FUNCTION(index&) as long	retourne l'espace libre en octet du lecteur	1
GetSize	FUNCTION(index&) as long	retourne la taille en octet du lecteur	1

QDrive Evenements

Evenement	Type	Déclenchement	Parametres

QDrive Exemples

  $INCLUDE "Object\QDrive.inc"

  dim drive as QDrive
  declare sub show

  CREATE Form AS QFORM
    Caption = "Proprietés disque dur"
    Width = 320
    Height = 240
    Center
    OnShow=show
    CREATE Label1 AS QLABEL
      Caption = ""
      Left = 22
      Top = 22
    END CREATE
  END CREATE
 

  Form.ShowModal

  sub show
    dim i as integer
    dim number as integer

    For i=1 to drive.Count
      if drive.GetType(i)=DRIVE_FIXED then number=i
    next i
    label1.caption="Nom lecteur: "+drive.name(number)+chr$(13)+ _
                           "Capacité: "+str$(drive.GetSize(number))+" octets"+chr$(13)+ _
                           "Espace libre: "+str$(drive.GetFreeSpace(number))+" octets"
  end sub