[DELPHI] LER SERIAL LÓGICO DE UMA UNIDADE

function TForm1.SerialLogico(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.Button1Click(Sender: TObject); 

begin 

  if Edit1.Text <> '' then 

    Label1.Caption := SerialLogico(edit1.text) 

  else 

    ShowMessage('Informe uma unidade!'); 

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】