Acessar dados da m�quina

Question

Gostaria de saber se algu�m tem alguma luz...
Estou querendo criar um sistema que cria um relat�rio com um (cont*) de todos os arquivos por extens�o que tem na m�quina, tipo quantos arquivos .exe que tem.

Eu gostaria de saber como eu posso acessar e onde fica esses dados na m�quina?

Valeu

Massuda · Answer

O que voc� quer � listar todos os arquivos na m�quina? Algo parecido com DIR *.exe /s?...

Tiagomachado · Answer

� mais o menos isso, gostaria de fazer um sistema que mostrasse  o a quantidade de arquivos .exe, .mp3, .avi    .....entendeu??Valeu pela aten��o....

Massuda · Answer

Acho que n�o tem isso pronto no Windows... voc� teria que percorrer o HD e contar os arquivos. Um exemplo de como percorrer os diret�rios do HD seria (adapte para sua necessidade)...

procedure ListarArquivos(Path: string; Lista: TStrings); 
var 
  SR: TSearchRec; 
  Terminou: Boolean; 
begin 
  if (Path = ��) or (Path[Length(Path)] <> �\�) then begin
    Path := Path + �\�;
  end;

  Terminou := FindFirst(Path + �*.*�, faAnyFile, SR) <> 0; 
  while not Terminou do begin 

    if (SR.Attr and faDirectory) = faDirectory then begin 

      if (SR.Name <> �.�) and (SR.Name <> �..�) then begin

        ListarArquivos(Path + SR.Name, Lista);
      end;
    end
    else begin

      Lista.Add(Path + SR.Name); 
    end; 

    Terminou := FindNext(SR) <> 0; 
  end; 

  FindClose(SR); 
end;

...para usar o exemplo...

var
  Lista: TStringList;
...
  // lista todos os arquivos do drive D
  ListarArquivos(�D:�, Lista);
...

...use ExtractFileExt para extrair a extens�o do arquivo.

Tiagomachado · Answer

vou tentar aqui valeu cara.......

Tiagomachado · Answer

Vc sabe se tem com entrar na BIOS via codigo no DELphi?...

Massuda · Answer

Posso estar enganado, mas acho que isso n�o � poss�vel....

Tiagomachado · Answer

falo, vou dar uma pesquisada aqui, se eu descobrir eu te falo......

Tiagomachado · Answer

Massuda,           teria como vc me dar mais detalhes sobre o codigo acima, eu estou no trabalho, mas quando for para casa vou fazer. Eu coloco esses c�digos em form do jeito que estam ai?Valeu.....

Massuda · Answer

O exemplo preenche um TStringList (ou qualquer derivado de TStrings) com uma lista dos arquivos existentes no diret�rio (incluindo os subdiret�rios) informado. Do jeito que est� provavelmente n�o serve para o que voc� quer (n�o seria pr�tico montar tal lista para depois fazer a contagem), mas a� � que entra seu talento de programador :wink:

Tiagomachado · Answer

falo cara hhehehe  :lol:...

F�rum Acessar dados da m�quina #300171