Mostrar el diálogo de propiedades de un archivo o directorio

[dec]

Esta función muestra el diálogo de Windows con las propiedades de un archivo o carpeta:

Código Delphi [-]
uses
  ShlObj, Masks, ShellApi;

function DialogoPropiedades(hWndOwner:
  HWND; const archivo: string): Boolean;
var
  info: TShellExecuteInfo;
begin
  with info do begin
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
    wnd  := hWndOwner;
    lpDirectory := nil;
    lpParameters := nil;
    cbSize := SizeOf(info);
    lpVerb := 'properties';
    lpFile := pChar(archivo);
    fMask := SEE_MASK_INVOKEIDLIST;
  end;
  Result := ShellExecuteEx(@info);
end;