É 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; |
