Numero de Serie do HD

Broder vi esse codigo no DT Delphi mais nem teste

Function SerialNum(FDrive:String) :String;

Var

Serial:DWord;

DirLen,Flags: DWord;

DLabel : Array[0..11] of Char;

begin

Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0);

Result := IntToHex(Serial,8);

Except Result :='';

end;

end;

Achu q pd t ajuda

>
Broder vi esse codigo no DT Delphi mais nem teste

Function SerialNum(FDrive:String) :String;

Var

Serial:DWord;

DirLen,Flags: DWord;

DLabel : Array[0..11] of Char;

begin

Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0);

Result := IntToHex(Serial,8);

Except Result :='';

end;

end;

Achu q pd t ajuda

kara valeu a ajuda mais essa numeração é do volume do hd o que eu quero é a série

Tente com este exemplo: http://www.delphi3000.com/articles/article_4207.asp?SK=