[DELPHI] OBTER O TIPO DA UNIDADE/DRIVE

//uses windows

procedure TForm1.Button1Click(Sender: TObject);

var

  s: string;

  Tipo: byte;

  _unidade: string;

begin

  InputQuery('Tipo unidade', 'Informe o nome da unidade, Ex.: C', _unidade);

  if _unidade <> '' then

  begin

    Tipo := GetDriveType(PChar(_unidade[1] + ':\'));

    case Tipo of

      0:

        s := 'Tipo indeterminado';

      1:

        s := 'Drive não existe';

      DRIVE_REMOVABLE:

        s := 'Disco removível';

      DRIVE_FIXED:

        s := 'Disco Fixo';

      DRIVE_REMOTE:

        s := 'Unidade de rede';

      DRIVE_CDROM:

        s := 'CD-ROM';

      DRIVE_RAMDISK:

        s := 'RAM Disk';

    else

      s := 'Erro';

    end;

  end;

  ShowMessage(s);

end;

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