Serial do HD mudando
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;
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
Curtidas 0
Respostas
Paullsoftware
25/09/2006
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:
GOSTEI 0
Massuda
25/09/2006
[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.
GOSTEI 0
Raserafim
25/09/2006
dá uma olhada neste tópico
http://forum.clubedelphi.net/viewtopic.php?t=80777&start=0&postdays=0&postorder=asc&highlight=
http://forum.clubedelphi.net/viewtopic.php?t=80777&start=0&postdays=0&postorder=asc&highlight=
GOSTEI 0
M@gnun
25/09/2006
eu uso o IdeSn e vai blz ...
apenas em alguns casos ele nao conseguiu pegar, mas criei uma rotina ´Plano B´ pra isso.
apenas em alguns casos ele nao conseguiu pegar, mas criei uma rotina ´Plano B´ pra isso.
GOSTEI 0