Fórum n° serial do DiskDriver #234813
28/05/2004
0
Ae eu utilizo a função abaixo pra pegar o número serial
de um disco, tanto disquete como unidade lógica:
Preciso de uma função pra alterar o número sem ter que
formatar a unidade. Tem como?
T+
de um disco, tanto disquete como unidade lógica:
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;
Preciso de uma função pra alterar o número sem ter que
formatar a unidade. Tem como?
T+
Eniorm
Curtir tópico
+ 0
Responder
Posts
30/05/2004
Edilcimar
Aparentemente o que vc está querendo é burlar a proteção de serial de HD que alguns programadores utilizam para dificultar a pirataria, arranje um Norton antigo que existem um programinha lá que faz isto
Responder
Gostei + 0
31/05/2004
Eniorm
Aparentemente o que vc está querendo é burlar a proteção de serial de HD que alguns programadores utilizam para dificultar a pirataria, arranje um Norton antigo que existem um programinha lá que faz isto
Bom é algo semelhante, mas como forma de proteger
um sistema meu contra pirataria.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)