Fórum numero de serie do hd #225535
12/04/2004
0
Fvieira
Curtir tópico
+ 0Posts
12/04/2004
Chico Gois
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
12/04/2004
Fvieira
Gostei + 0
12/04/2004
Jasig Aurumalfa
Gostei + 0
12/04/2004
Chico Gois
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
13/04/2004
Nerdex
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
Clique aqui para fazer login e interagir na Comunidade :)