Capturar Id Do Hdisk (cod.fabricante)

[Guest baliza]

alguém pode me ajudar a capturar o numero de série do HD, estou prescisando com muita urgencia disto, pois descobri uma falha nos meus numeros de séries. há! aquela função SERIALNUM() não funcionou corretamente, pois tem hora que retorna numeros diferentes...não é confiavel..... Aguardando ajuda...obrigado.

obs: Não é aquele numero de serie do volume do disco não XXXX-XXXX

Danilo B. Seixas

[DELPHI-Man32]

você usou algo parecido com isso?

-------------------------------------

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;

-------------------------------------

DELPHI-Man32

[DELPHI-Man32]

Há baliza, já ia me esquecendo!

na próxima registre-se no fórum OK!

thanks..

DELPHI-Man32

[bolomaster]

cara alem da funçao, existem programas q já fazem isso.. so você procurar na net. q vai achar muitas coisas..

não sei se no clube delphi tem algo assim porque la eu nunca vi não, mas qualquer coisa posta ai

abraços

[DELPHI-Man32]

boa idéia bolomaster!

programas que fazem formatação de baixo nível em hd's podem retornar o serial do hardware pra vc.

op's! : em hd quantum, usa o programa da quantum etc.

tenta aqui!

clube do hardware

DELPHI-Man32