numero de serie do hd

Delphi

12/04/2004

ola, gostaria de saber como eu faço para pegar o numero de serie do hd, para criar uma tela de licença e codigo de liberação quando o programa for instalado em outra maquina. obrigado, fabio


Fvieira

Fvieira

Curtidas 0

Respostas

Chico Gois

Chico Gois

12/04/2004

Tirado das 800 dicas Delphi..

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;


T+


GOSTEI 0
Fvieira

Fvieira

12/04/2004

como eu uso esse codigo?


GOSTEI 0
Jasig Aurumalfa

Jasig Aurumalfa

12/04/2004

Pois parece uma função que varia entre as versões do Delphi, pode dizer que unit se usa (se tiver alguma) e em que versão do Delphi vc tah usando ai?


GOSTEI 0
Chico Gois

Chico Gois

12/04/2004

Function SerialNumHD(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;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := SerialNumHD(´c´);
end;



GOSTEI 0
Nerdex

Nerdex

12/04/2004

Existe um fato curioso sobre GetVolumeInformation:

Muitos FAQs recomendam o uso do GetVolumeInformation para recuperar
o serial do HD, mas esta função fornece o serial do volume e não o
serial do HD. O serial do volume é atribuído e alterado durante a
formatação de uma partição. Algumas empresas utilizam ferramentas
de clonagem para instalar softwares em seus computadores novos,
copiando de um HD para todos os outros. Consequentemente, todos
os números de séries dos volumes destes HDs são os mesmos.

Você pode recuperar o número de série real de um HD IDE, o nome
do modelo, a revisão do firmware e outras informações utilizando
o S.M.A.R.T. IOCTL API

O código para esta tarefa está aqui:
www.latiumsoftware.com/br/pascal/0044.php

P.S.: Olhem só...
Pensei 101 vezes no que estava trancado na minha garganta, não aguentando soltei a guela e realizei algumas idagações e afirmações sobre o assunto, e lamentavelmente acabei com a alegria de um palestrante, formando, que estava apresentando um dispositivo ´super seguro contra a pirataria´ de softwares, e lógico com a função: GetVolumeInformation.
Nota: haviam 150 espectadores... mas por questões éticas e morais que tenho com a informática, ñ pude perder a oportunidade.

valew


GOSTEI 0
POSTAR