Numero Serial do HD

Question

Estou com problema no meu numero de serie dos meus programas, e para corrigi-lo, presciso pegar o numero de serie do HD. Utilizei aquela fun��o SERIALNUM(), mas nao funcionou, ele esta mudando o numero. Hora aparece um numero, hora outro.

Estou prescisando com muita urgente.

Danilo :(

Luineumann · Answer

tenho essa sintaxe para a fun��o serialnum ... veja se bate com a sua

talvez o problema seja com a vers�o do windows (98, xp, etc)

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;

Baliza · Answer

� a mesma fun��o......j� testei no windows NT/98 total de 3 m�quinas e retorna numeros que nao sao permanentes....obrigado.........

Maicongabriel · Answer

� esta a sua fun��o ?[code:1:f77bca8cfc]function SerialNum(FDrive : String) : String;var  Serial,  DirLen,  Flags  : DWord;  DLabel : Array&#91;0..11&93; of Char;begin  try    GetVolumeInformation( PChar(FDrive + �:�),                          dLabel, 12, @Serial,                          DirLen, Flags, nil, 0 );    Result := IntToHex(Serial, 8);  except    Result := ��;  end;end;[/code:1:f77bca8cfc]Aqui ela funciona bem !Qual a vers�o do Windows da maquina na qual voc� esta testando ?...

Maicongabriel · Answer

OPss , p�gina desatualizada :oops:

Voc� disse que esta testando em 3 m�quina, mas me deculpe a pergunta, os numeros n�o s�o igual entre as 3 ?
Ou na mesma m�quina o resultado se modifica ?

Salupe · Answer

N�o sei se � esse o seu problema, mas se voc� estiver usando um programa em rede e com esta fun��o tentar pegar o serial de um dos terminais e o execut�vel estiver somente no servidor o n�mero que ela pega ser� realmente vari�vel.
Se for isso s� o que voc� tem a fazer e colocar o execut�vel em cada m�quina.
Tirando isso o serial s� muda se voc� formatar a m�quina.

Falo Chefia.

Baliza · Answer

[quote:b41c109803=�maicongabriel�]OPss , p�gina desatualizada  :oops: Voc� disse que esta testando em 3 m�quina, mas me deculpe a pergunta, os numeros n�o s�o igual entre as 3 ? Ou na mesma m�quina o resultado se modifica ?[/quote:b41c109803]Nas 3 m�quinas aparecem numeros diferentes, s� que eles nao permanecem...ficam modificando quando vc fecha o aplicativo e abre novamente....

Baliza · Answer

[quote:0ca37db54a=�salupe�]N�o sei se � esse o seu problema, mas se voc� estiver usando um programa em rede e com esta fun��o tentar pegar o serial de um dos terminais e o execut�vel estiver somente no servidor o n�mero que ela pega ser� realmente vari�vel.Se for isso s� o que voc� tem a fazer e colocar o execut�vel em cada m�quina.Tirando isso o serial s� muda se voc� formatar a m�quina.Falo Chefia.[/quote:0ca37db54a]Amig�o..... eu quero o numero serial do HD e nao aquele numero do vol do HD, aquele XXXX-XXXX....... certo....

Baliza · Answer

Presciso desta porque?!!!Teve um cliente meu que clonou um hd para outro que tinha meu sistema. E com isso aquele numero do Volume vai junto, quando vc faz uma imagem do disco r�gido.. Ai vcs j� sabem do que isso pode acarretar.....varias e v�rias imagens....s�o v�rias ...v�rias piratarias..?????!!!!!   :(Presciso de ajuda!...

Salupe · Answer

E Voc� acha que a tua rotina pega o que? Camarada...

Baliza · Answer

[quote:040b17b821=�salupe�]E Voc� acha que a tua rotina pega o que? Camarada[/quote:040b17b821]pensava que esta fun��o serialnum() retornaria o numero serial do HD.NUMERO DE F�BRICA....

Salupe · Answer

No pr�prio comando que voc� pega o n�mero j� dizGetVolumeInformation...

Baliza · Answer

[quote:50ca3c57e1=�salupe�]No pr�prio comando que voc� pega o n�mero j� dizGet[b:50ca3c57e1]Volume[/b:50ca3c57e1]Information[/quote:50ca3c57e1]N�o entendi amigo.....??????? :?:...

Salupe · Answer

Sinto muito discordar de voc�, mas esta tua rotina pega o n�mero serial do volume do HD (como voc� diz), porque realmente a cada formata��o ou se voc� pegar pelo programa (execut�vel) estando em outro computador o n�mero ir� mudar.
Ou seja, esta rotina n�o pega o que voc� est� querendo e da forma que voc� quer.

Nigro · Answer

At� onde eu sei o Windows 2000 e o 98 t�m o endere�o de leitura do serial de f�brica em endere�os diferentes. sendo preciso fazer uma fun��o que deetecte o Windows utilizado, antes......

Baliza · Answer

[quote:bfacf16a4b=�Nigro�]At� onde eu sei o Windows 2000 e o 98 t�m o endere�o de leitura do serial de f�brica em endere�os diferentes. sendo preciso fazer uma fun��o que deetecte o Windows utilizado, antes...[/quote:bfacf16a4b]Vamos l� amigo.....me ajude, acho que vc me entendeu!!!!!!...

F�rum Numero Serial do HD #206067