Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

Astuces - Système - Connaitre le type de lecteur en Delphi

Ajouter un composant TButton et TLabel.

procedure TForm1.Button1Click(Sender: TObject);
begin
Case GetDriveType('c:\\') of
0:Label1.Caption:='Le lecteur est inconnu';
1:Label1.Caption:='Le lecteur n''existe pas';
DRIVE_CDROM:Label1.Caption:='Le lecteur est un CD-Rom';
DRIVE_FIXED:Label1.Caption:='Le lecteur est un disque dur';
DRIVE_REMOVABLE:Label1.Caption:='Le lecteur est un lecteur de disquettes';
DRIVE_RAMDISK:Label1.Caption:='Le lecteur est un RAM Disque';
end;
end;


Tous droits réservés - Contacts
Haut de la page