n° serial do DiskDriver

Delphi

28/05/2004

Ae eu utilizo a função abaixo pra pegar o número serial
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

Eniorm

Curtidas 0

Respostas

Edilcimar

Edilcimar

28/05/2004

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


GOSTEI 0
Eniorm

Eniorm

28/05/2004

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.


GOSTEI 0
POSTAR