Buscar por:

Exibindo as propriedades do arquivo

Código

{A dica abaixo apresenta o código de implementação para exibir na tela uma janela padrão Windows de propriedades do arquivo. Para implementar este procedimento é necessário acrescentar a unit ShellAPI.As propriedades do arquivo são armazenadas numa estrutura chamada TShellExecuteInfo, que corresponde a um registro com os campos: tamanho do arquivo (cbSize), atributos (fMask), nome (lpFile) , shell (lpVerb) e modo de apresentação da janela (nShow).O primeiro passo do procedimento é zerar todas a propriedades da Shell ( FillChar(S,SizeOf(S),0) ), segundo passo é atualizar estas propriedades (With S do ) em relação ao arquivo indicado (Arq :String) e o terceiro passo é abrir a janela de propriedades com os valores atualizados (ShellExecuteEx(@S)):}

Procedure Propriedades(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 := Handle; 

lpVerb := 'properties'; 

lpFile := Pchar(Arq); 

nShow := sw_ShowNormal; 

End; 

ShellExecuteEx(@S); 

End; }