obtener el número de serie de un disco duro serial ATA

[Davidcfres]

Eso es :

function ExtraitSerieDuDisque:longword;
Var
BuffNom : Array[0..255]Of Char;
BuffSys : Array[0..255]Of Char;
Serie : longword;
Long : longword;
Flags : longword;

Resultat: longword;
Begin
Resultat := 0;

// Obtention des informations sur le lecteur
if GetVolumeInformation(PChar('C:\')
,@BuffNom,SizeOf(BuffNom) // BuffNom contiendra le nom
,@Serie // Serie le numéro de série
,Long
,Flags
,@BuffSys,SizeOf(BuffSys)) Then // BuffSys le type de fichiers
Begin
Resultat := Serie;
End;

result := resultat;
end;

~
GetVolumeInformation : Windows
~

lo siento ... codigo frances .... jajaja

David

[MAXIUM]

Gratis, hecho por un integrante de Clubdelphi http://neftali.clubdelphi.com/?p=240