Pesquisar no Programero

terça-feira, 16 de junho de 2009

Pegar informações de uma unidade (Delphi)

Nesse exemplo mostraremos como recuperar informações como setores, bytes por setores e aghrupamentos livres, o exemplo completo pode ser baixado aqui.
Insira no formulario um Edit para receber o caminho do diretorio, um memo para mostrar as informações e um botão para iniciar a consulta, segue a codificação do click do botão:
var
  SetoresPorAgrup, BytesPorSetor, AgrupLivres,
  TotalAgrup: DWord;
begin
  Memo1.Clear;
  if GetDiskFreeSpace( pchar(Edit1.Text) , SetoresPorAgrup,
      BytesPorSetor, AgrupLivres, TotalAgrup) then
  with Memo1.Lines do begin
    Add('------------------------------------------------------------------');
    Add('----- Informações sobre a unidade ['+Edit1.Text+'] -----');
    Add('Setores por agrupamento: ' + IntToStr(SetoresPorAgrup));
    Add('Bytes por setor: ' + IntToStr(BytesPorSetor));
    Add('Agrupamentos livres: ' + IntToStr(AgrupLivres));
    Add('Total de agrupamentos: ' + IntToStr(TotalAgrup));
    Add('----- Resumo da unidade ['+Edit1.Text+']-----');
    Add('Total de bytes: ' +
      IntToStr(TotalAgrup * SetoresPorAgrup * BytesPorSetor));
    Add('Bytes livres: ' +
      IntToStr(AgrupLivres * SetoresPorAgrup * BytesPorSetor));
    Add('------------------------------------------------------------------');
 
end;
end;

Nenhum comentário:

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.