Retornar o Tamanho do HD

Question

Algu�m sabe como retornar o tamanho [b:7b25e307d9]total [/b:7b25e307d9]e [b:7b25e307d9]livre [/b:7b25e307d9]do HD?valeu...

Deus · Answer

Eis aqui uma fun��o que vai te dar uma for�a.. dando mais do que voc� pediu! ;)

  function PegaDados(Drive: String; iDado: Integer): Variant;
  var
      fulldrive         :string[3];
      tmp_drive         :array[0..2] of char;
      Tmp_SectorsPerCluster,
      Tmp_BytesPerSector,
      Tmp_FreeClusters,
      Tmp_Clusters      :DWORD;
      VolName           :array[0..255] of Char;
      SerialNumber      :DWORD;
      MaxCLength        :DWORD;
      FileSysFlag       :DWORD;
      FileSysName       :array[0..255] of Char;
  begin
    fulldrive := Drive + �:\�;
    StrPCopy(tmp_drive, fulldrive);

    try
      GetDiskFreeSpace(tmp_drive, Tmp_SectorsPerCluster, Tmp_BytesPerSector,
                              tmp_FreeClusters, Tmp_Clusters)
    except
    end;

    GetVolumeInformation(tmp_drive, VolName, 255, @SerialNumber, MaxCLength,
       FileSysFlag, FileSysName, 255);

(*  Possibilidades de iDado:

    0 - Setores por Cluster;
    1 - Bytes por Setor;
    2 - Clusters Livres;
    3 - Quantidade de Clusters;
    4 - Espa�o Livre em Disco;
    5 - Espa�o Total em Disco;
    6 - Nome do Volume;
    7 - N�mero de S�rie do Disco; *)

    Case iDado of
      0: Result := Tmp_SectorsPerCluster;
      1: Result := Tmp_BytesPerSector;
      2: Result := Tmp_FreeClusters;
      3: Result := Tmp_Clusters;
      4: Result := Tmp_FreeClusters * Tmp_BytesPerSector * Tmp_SectorsPerCluster;
      5: Result := Tmp_Clusters * Tmp_BytesPerSector * Tmp_SectorsPerCluster;
      6: Result := String(VolName);
      7: Result := IntToHex(SerialNumber, 8);
    end;
  end;

Para execut�-la, � f�cil. Digamos que voc� quer saber o tamanho total do drive C. Para isso, voc� usa uma vari�vel do tipo REAL (n�o Integer), e faz:

variavel := PegaDados(�C�, 4);

O valor que vai no segundo par�metro (iDados) est� explicitado dentro do c�digo. Ele pode assumir valores de 0 at� 7, e cada valor q vc colocar pra iDados retorna uma coisa diferente. Suponha, por exemplo, que voc� quer o nome do drive C. Para isso, voc� cria uma vari�vel String e faz:

variavel := PegaDados(�C�, 7);

F�cil, n�o? Espero que tenha ajudado!! :) Abra�os, dEUS

Adriano Santos · Answer

Eu acabei usando DiskFree e DiskSize, mais f�cil ainda...valeu...

F�rum Retornar o Tamanho do HD #198445