pascal > Nom du disque dur

TitreNom du disque dur
Postée le22-09-2009
Affichée488
Mini-lien
Description

Donne le nom du disque dur (j'ai pas eu le temps de compiler, mais jpense que c'est ok)

EtatInconnu. Inconnu.
Code d'insertion
Options
Afficher les numéros de lignes  Mettre la source en plein ecran  Selectionner la source  Partager sur Facebook 
Téléchargement Telecharger en format txt  Telecharger en format pdf
Plein ecran
Program NomHD;
Uses Dos;

Var srec : SearchRec;
Var lettre : String;

Begin
        lettre:= 'C';
        FindFirst(lettre+':',VolumeID,srec);
        if DosError = 0 then
                begin
                        WriteLn(lettre+': [', srec.Name, ']');
                        FindClose(srec);  { ASupprimer si Turbo Pascal }
                end;
End.