Numero de Identificação do HD

Delphi

15/09/2006

tem como pegar algum número de identificação do HD e não o número de série da unidade.
ou seja, quero um número que mesmo formatando a máquina este número seja o mesmo. um número que seja realmente físico.


Raserafim

Raserafim

Curtidas 0

Respostas

Adrbrusc

Adrbrusc

15/09/2006

Eu utilizo a seguinte função:

uses ShellApi;

function HDSerialNumber : string;
var
volnamebuffer : array[0..255] of char;
FileSystemNamebuffer : array[0..255] of char;
volumenamesize,
volumeserialnumber,
maxcomponent,
filesystemflags,
filesystemnamesize : dword;
begin
volumenamesize := 255;
filesystemnamesize := 255;


GetVolumeInformation( ´c:\´,volnamebuffer,
volumenamesize,
@volumeserialnumber,
maxcomponent,
filesystemflags,
filesystemnamebuffer,
filesystemnamesize);

Result := Format( ´¬x´, [volumeserialnumber] );

end;

Abraços


GOSTEI 0
Paullsoftware

Paullsoftware

15/09/2006

a algum tempo o vinicius2k postou uma unit com um código que capturava o SN fisíco do HD, aqui vai o código dessa unit..

Clique com o botão direito e pessa pra salvar o destino!
:arrow: [url=http://www.safpe.com.br/externo/IdeSN.pas]Unit com o código para detectar o SN do HD...[/url]
:arrow: [url=http://www.safpe.com.br/externo/Exemplo+(Serial+do+HD).zip]Aqui segue um exemplo do uso da mesma[/url]
espero ter ajudado :wink:


GOSTEI 0
Raserafim

Raserafim

15/09/2006

adrbrusc, este seu código pega apenas o número de série da partição. ou seja, ao formatar este número muda. mas valeu.

paullsoftware, valeu pelo exemplo e pela unit. este pelo jeito é o número físico mesmo. valeu cara.


GOSTEI 0
Kelcio

Kelcio

15/09/2006

Oi pessoal, sou novo na comunidade tentei usar a dica do serial físico mas ela não funciona para alguns HDs. Alguém sabe pq? :(


GOSTEI 0
Marco Salles

Marco Salles

15/09/2006

Oi pessoal, sou novo na comunidade tentei usar a dica do serial físico mas ela não funciona para alguns HDs. Alguém sabe pq?


é melhor voce le o tópico original... La tem alguns detalhes sobre possivel falha nesta função

Apos ler acrecente la mesmo (botao responder) a sua situação , pq não obteve exito e em qual situação..

http://forum.devmedia.com.br/viewtopic.php?t=43652&highlight=serial+vinicius&start=15


GOSTEI 0
POSTAR