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

Sérgio-pardal

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


Responder

25/02/2003

Dor_poa

Se quiser mais procura pela 750 dicas de delphi.. Vale a pena..


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar