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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowProperties('C:\Windows\notepad.exe');
end;
-
InfusTec
-
4.752 views
- 0 comentários
- 30 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo