Descobrir serial do HD
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
Curtidas 0
Respostas
Anonymous
25/02/2003
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
GOSTEI 0
Dor_poa
25/02/2003
Se quiser mais procura pela 750 dicas de delphi.. Vale a pena..
GOSTEI 0