Como exibir as propriedades do arquivo pelo Delphi? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como exibir as propriedades do arquivo pelo Delphi?

 

É necessário estar declarado ShellAPI e Forms na seção uses,
em versões unicode declare Winapi.ShellAPI e VCL.Forms;

Esta dica é uma forma de exibir as propriedades de um arquivo
pela janela do Windows.

Este é mesmo efeit que clicar com o botão direito do mouse
em um arquivo e ir na opção Propriedades.

Abaixo segue o código fonte do procedimento:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure ShowProperties(Arq: String);
var
  s : TShellExecuteInfo;
begin
  FillChar(s, SizeOf(s), 0);
 
  with s do
  begin
    cbSize := SizeOf(s);
    fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_INVOKEIDLIST or
      SEE_MASK_NOCLOSEPROCESS;
    wnd := Application.Handle;
    lpVerb := 'properties';
    lpFile := PChar(Arq);
    nShow := SW_SHOWNORMAL;
  end;
 
  ShellExecuteEx(@s);
end;

Exemplo de uso:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowProperties('C:\Windows\notepad.exe');
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 1.066 views
  • 0 comentários
  • 30 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados