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

cs_kalif 362 Messages postés mardi 18 décembre 2001Date d'inscription 24 août 2012 Dernière intervention - 4 avril 2005 à 17:44 - Dernière réponse : WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention
- 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

WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention - 4 avril 2005 à 18:23
+3
Utile
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.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de WhiteHippo
koaiz 49 Messages postés samedi 26 avril 2003Date d'inscription 8 août 2009 Dernière intervention - 9 avril 2005 à 15:49
0
Utile
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
WhiteHippo 1270 Messages postés samedi 14 août 2004Date d'inscription 5 avril 2012 Dernière intervention - 10 avril 2005 à 01:38
0
Utile
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.