Fórum Numero de Identificação do HD #329415

15/09/2006

0

Delphi

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

Responder

Posts

15/09/2006

Adrbrusc

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


Responder

Gostei + 0

15/09/2006

Paullsoftware

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:


Responder

Gostei + 0

16/09/2006

Raserafim

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.


Responder

Gostei + 0

29/09/2006

Kelcio

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? :(


Responder

Gostei + 0

29/09/2006

Marco Salles

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar