Un aide SVP

Signaler
Messages postés
42
Date d'inscription
samedi 27 novembre 2004
Statut
Membre
Dernière intervention
21 avril 2009
-
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
Comment je récupére le numéro de série du disque dur en delphi SVP.

Blanc

2 réponses

Messages postés
102
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
24 mars 2021

Bonjour,

Comme ca

Procedure TForm1.Button1Click(Sender: TObject);
Var
user : String;
VolName : Array[0..Max_Path] Of Char;
FileSysName : Array[0..Max_Path] Of Char;
VolSerial : DWord;
FileMaxLen : DWord;
FileFlags : DWord;
Begin
user := UserName;
If GetVolumeInformation('C:\', VolName, Max_Path, @VolSerial,
FileMaxLen, FileFlags, FileSysName, Max_Path)
Then ShowMessage('Nom du disque :' + VolName
+ #13'Système de fichiers :' + FileSysName
+ #13'Numéro de série :' + IntToStr(VolSerial)
+ #13 + 'Utilisateur ' + user);
End;
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
[code.aspx?ID=32521 GET SERIAL DRIVE]