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:
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/
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
3 matches
Mail list logo