Dicas - Função de leitura do número de série do disco rígido

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

use esta função para de leitura da série do HD, contra a pirataria


Função de leitura do número de série do disco rígido


Para você que quer proteger seu software contra cópias piratas, esta função lhe será muito útil:

function SerieHD(FDrive: String):String;
var
   NrSerie,DirLen,Flags: DWord;
   DLabel:Array[0..11] of Char;
begin
try
  GetVolumeInformation(PChar(FDrive+':\'),DLabel,12,@NrSerie,DirLen, Flags,nil,0);
  Result:=InttoHex(NrSerie,8);
except
  Result:='';
end;
end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?