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
|