Pular para o conteúdo principal

Descobrir tipo do Arquivo (Delphi)

Segue um exemplo de como verificar o tipo de um determinado arquivo, digita-se o nome do arquivo juntamente com o caminho no Edit1, e ao clicar no botão o Edit2 recebe o tipo do arquivo:

Function TipoArquivo(const p_File: String): String;
var
v_Inf: TSHFileInfo;

begin
IF SHGetFileInfo(PChar(p_File),0,v_Inf,Sizeof(v_Inf),SHGFI_TYPENAME) <> 0 THEN
Result := StrPas(v_Inf.szTypeName)
ELSE
BEGIN
Result := ExtractFileExt(p_File);
Delete(Result,1,1);
Result := Result +' File';
END;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := TipoArquivo(Edit1.Text);
end;

Baixe o exemplo aqui.
Marcadores:

Comentários

  1. Eduardo FP2 de junho de 2009 às 22:54

    v_Inf: TSHFileInfo;

    Não funciona. ¬¬'

    ResponderExcluir
  2. Eduardo3 de junho de 2009 às 13:52

    Olá Eduardo, basta você declarar a unit ShellAPI... abraços...

    ResponderExcluir
  3. Eduardo FP3 de junho de 2009 às 14:47

    Valeu ! \o/

    ResponderExcluir
  4. Eduardo FP3 de junho de 2009 às 15:40

    Tem como identificar o tamanho do arquivo ou da pasta com esses tipos de código ?

    ResponderExcluir
  5. Eduardo4 de junho de 2009 às 13:22

    Opa, dê uma olhada nesse artigo:

    http://programero.blogspot.com/2009/06/verificar-tamanho-de-arquivo-delphi.html

    ResponderExcluir
  6. Eduardo FP4 de junho de 2009 às 13:49

    Valeu \o/[2]

    ResponderExcluir
  7. Carlos Antonio Lopes Piubello24 de maio de 2010 às 15:16

    Olá.

    Esse exemplo é quase o que estou precisando.
    Na verdade preciso identificar que tipo de arquivo ele é, independente da extensão informada.

    ResponderExcluir
  8. Anônimo24 de janeiro de 2013 às 21:01

    Desculpem mas essa dica é não foi boa.
    Voce não ta dizendo tipo do arquivo.
    Voce só ta dando um copy loco e pegando a extensão do mesmo.

    O windows tem uma classificação generica, que aparece na tela de propriedades. Aquilo sim é tipo... pega e mostra...

    Mostrem ai!!! :)

    ResponderExcluir
  9. Anônimo24 de janeiro de 2013 às 21:05

    Retiro o que eu disse... :)

    ResponderExcluir
  10. Eduardo Teixeira29 de janeiro de 2013 às 14:45

    Sem problemas Anônimo ...

    ResponderExcluir

Postar um comentário

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

Mais visitadas

Desabilitar POST do ENTER ASP .NET

Caso não seja necessário uma atualização de página a cada vez que o usuário pressionar a tecla “ ENTER ” podemos codificar uma pequena função em javascript anulando esse comportamento, segue o código: < script language ="javascript"> function desabilitaPostDoEnter(e) {      var key;      if (window.event)           key = window.event.keyCode;  //IE      else           key = e.which;                      //firefox      if (key == 13)           return false ;      else           return true ; } </ script > Agora nos objetos que se deseja c...
7 comentários
Leia mais

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;
3 comentários
Leia mais

Ler de um arquivo de configuração (.INI no Delphi)

Em muitos casos precisamos tornar nossas aplicações customizáveis, disponibilizando parâmetros que possam ser alterados, sejam eles informações a respeito de uma conexão com o banco de dados, uma senha, ou mesmo possibilitar a alteração do layout do sistema, tudo depende da necessidade e de como o programador pensa em termos de mobilidade para o usuário final. Exemplo de arquivo INI [PARAMETRO] SENHA=12345 Lendo um arquivo INI var // variável que irá conter o arquivo config : TIniFile; // variável que irá armazenar parâmetro a ser lido do arquivo param : string; begin // associa o arquivo de configuração a variável config := TIniFile.Create('C:\Aplicacao\config.ini'); //variável param recebe 12345 param := config.readstring('PARAMETRO','SENHA',''); end;
5 comentários
Leia mais