Descobrir serial do HD
25/02/2003
0
Preciso de uma função que descubra o serial do HD de quem está usando o programa. Quem souber me passe por favor.
Sérgio-pardal
Curtir tópico
+ 0
Responder
Posts
25/02/2003
Anonymous
vc pode usar essa função:
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;
e para usar ele vc faz assim:
ShowMessage(SerialNum(´C´));
Leandro.
IQC 128124370
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;
e para usar ele vc faz assim:
ShowMessage(SerialNum(´C´));
Leandro.
IQC 128124370
Responder
25/02/2003
Dor_poa
Se quiser mais procura pela 750 dicas de delphi.. Vale a pena..
Responder
Clique aqui para fazer login e interagir na Comunidade :)