Dicas - Fun��o de leitura do n�mero de s�rie do disco r�gido

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;

D� um upgrade no in�cio da sua jornada. Crie sua conta gr�tis e baixe o e-book

Dicas - Fun��o de leitura do n�mero de s�rie do disco r�gido

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

Artigos relacionados