Num de série du disque dur [Résolu]

Messages postés
362
Date d'inscription
mardi 18 décembre 2001
Dernière intervention
24 août 2012
- - Dernière réponse : WhiteHippo
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Dernière intervention
5 avril 2012
- 10 avril 2005 à 01:38
comment faire pour avoir le numéro de série du lecteur C:\ ?
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Dernière intervention
5 avril 2012
3
Merci
function NumeroSerieDisque( const RepertoireRacine : string ) : string ;
var
NumeroSerieVolume : DWord;
TailleMaxiNom, OptionsSysteme : DWord;
NomSystemeFichier : array [0..255] of Char;
BufferNomVolume : array [0..255] of Char;
begin
Result := '' ;
if GetVolumeInformation ( PChar(RepertoireRacine)
, BufferNomVolume
, sizeof( BufferNomVolume )
, @NumeroSerieVolume
, TailleMaxiNom
, OptionsSysteme
, NomSystemeFichier // FAT or NTFS
, sizeof( NomSystemeFichier )
) then
begin
Result:=IntToStr(NumeroSerieVolume);
end ;
end;


Exemple d'appel :

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := NumeroSerieDisque( 'C:\' ) ;
end ;

Cordialement.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 104 internautes nous ont dit merci ce mois-ci

Commenter la réponse de WhiteHippo
Messages postés
49
Date d'inscription
samedi 26 avril 2003
Dernière intervention
8 août 2009
0
Merci
la fonction indiquer ne donne que le numero de serie de la FAT Donc si tu formate ton disque tu aura un autre numero mais il existe un autre Numero c'est le numero du disk phisique il ne change pas si c'est pour cree une protectiion c'est un tres bon moyen.

plus on vie plus on apprend
Commenter la réponse de koaiz
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Dernière intervention
5 avril 2012
0
Merci
Effectivement koaiz,
Une fonction écrite par Walter Alves Chagas Junior pour lire le numéro physique est donnée sur delphi3000 :
http://www.delphi3000.com/articles/article_4207.asp

Cordialement.
Commenter la réponse de WhiteHippo

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.