Todos os HDs de uma m�quina

Question

Bom dia pessoal!Como fa�o para saber quais s�o todas as unidades de disco r�gido da m�quina que o aplicativo est� sendo executado? A rotina deve retornar as letras das unidades.Agra�o a ajuda!Walter....

Wander Waldemorte · Answer

Nenhuma sugest�o pessoal???Ainda aguardo respostas!Obrigado!...

Massuda · Answer

Basta combinar as fun��es GetLogicalDrives e GetDriveType da API do Windows:

function ListaHDs: string;
var
  Drives: DWord;
  Mascara: DWord;
  S: String;
  I: Integer;
begin
  Result := ��;
  S := �A:\�;
  Drives := GetLogicalDrives;
  Mascara := 1;
  for I:= 1 to 32 do begin
    if (Mascara and Drives) <> 0 then begin
      if GetDriveType(PChar(S)) = DRIVE_FIXED then begin
        Result := Result + S[1];
      end; 
    end;
    Mascara := Mascara shl 1;
    Inc(S[1]);
  end;
end;

Se voc� tiver apenas um HD (normalmente o drive C), ListaHDs retorna �C�; se voc� tiver dois HDs (ou duas parti��es num mesmo HD), ListaHDs retorna �CD�.

Wander Waldemorte · Answer

Brigad�o, cara!!! Era o que eu precisava!!! Valeu mesmo!  :D...

F�rum Todos os HDs de uma m�quina #264735