Fórum Serial do HD mudando #330017

25/09/2006

0

Delphi

A variavel NUMHD abaixo me retorna o serial do hd onde esta instaldo o executável.

Porem em alguns computadores acontece de cada hora retornar um serial diferente.
Alguem sabe o que pode ser isso?

var
NomeVol,SisArq,Unidade:String;
NumHD,Flags,TamMax:DWord;
begin
SetLength(Nomevol,255);
SetLength(Sisarq,255);
Unidade:=copy(application.exename,1,3);
GetVolumeInformation(pchar(unidade),PChar(NomeVol),255,@NumHD,TamMax,Flags,Pchar(SisArq),255);
end;


M@rcelo

M@rcelo

Responder

Posts

25/09/2006

Paullsoftware

amigo, procure aqui no forum pela palavra [b:88af02d3b8]ideSN[/b:88af02d3b8] vai achar bastante material de como pegar o serial Fisico do HD IDE do computador... espero ter ajudado :wink:


Responder

Gostei + 0

25/09/2006

Massuda

[quote:e76d47393a=´M@rcelo´]GetVolumeInformation(...[/quote:e76d47393a]Só para complementar o que o colega paullsoftware escreveu, o número que você está pegando é o número de série do volume do HD, que é gerado pelo Windows a cada formatação do volume; esse número não tem relação com o número de série do HD.


Responder

Gostei + 0

26/09/2006

Raserafim

dá uma olhada neste tópico

http://forum.clubedelphi.net/viewtopic.php?t=80777&start=0&postdays=0&postorder=asc&highlight=


Responder

Gostei + 0

26/09/2006

M@gnun

eu uso o IdeSn e vai blz ...

apenas em alguns casos ele nao conseguiu pegar, mas criei uma rotina ´Plano B´ pra isso.


Responder

Gostei + 0

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

Aceitar