domingo, 1 de dezembro de 2013

Função que pega o Numero Serial do HD


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;

Nenhum comentário:

Postar um comentário