Numero de Serie do HD

[orc 0]

Gostaria de saber se alguem sabe como faço pra pegar o numero de serie do hd aquele numero que não pode ser alterado ?

[Yoshi 1]

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

[orc 0]

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

[marcio.theis 3]

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