Re: [delphi-br] Função para descobrir numero de se rie do HD

[Gilmar Barbosa]

Valeu Samuel pela dica.

Deu certo. Encontrei tambem uma que pela o endereco MAC da placa de rede.
Decidi gravar na instalacao do sistema, os 2 dados por seguranca (Serial HD
e Mac da Rede).

Obrigado,

Gilmar

2009/12/7 Samuel M. Basso samuelba...@yahoo.com.br

 Segue abaixo funcao que utilizo:


 function GetSerialNumHD(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;





 2009/12/7 Gilmar Barbosa gilmarbgo...@gmail.com

 
 
  Bom Dia,
 
  Gostaria de ver se alguém possui uma rotina para descobrir o número de
  série
  do HD, pois pretendo gravar este número durante a instalação do sistema ?
 
  Estou utilizando o Delphi 2010.
 
  Obrigado,
 
  Gilmar
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 



 --
 Atenciosamente,

 Samuel M. Basso
 Cel: (54) 8135-3723
 Skype: samuelbasso
 E-mail/MSN: samuelba...@gmail.com
 Web site: www.samuelbasso.com


 [As partes desta mensagem que não continham texto foram removidas]



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Gilmar Barbosa Gomes


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Função para descobrir numero de se rie do HD

[Alisson Yahoo]

Procure pelo assunto no Google e você vai achar aos montes, inclusive em 
mensagens aqui da lista. 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

Re: [delphi-br] Função para descobrir numero de se rie do HD

[Samuel M. Basso]

Segue abaixo funcao que utilizo:


function GetSerialNumHD(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;





2009/12/7 Gilmar Barbosa gilmarbgo...@gmail.com



 Bom Dia,

 Gostaria de ver se alguém possui uma rotina para descobrir o número de
 série
 do HD, pois pretendo gravar este número durante a instalação do sistema ?

 Estou utilizando o Delphi 2010.

 Obrigado,

 Gilmar

 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
Atenciosamente,

Samuel M. Basso
Cel: (54) 8135-3723
Skype: samuelbasso
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com


[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html