API - mostrando a tela de propriedades de um arquivo

// Capturar a tela do propriedades de um arquivo

procedure TForm1.Button1Click(Sender: TObject);

var

  Sei : TShellExecuteInfo;

begin

  FillChar(Sei, SizeOf(Sei),0);

  with sei do begin

    cbSize := SizeOf(sei);

    fMask  := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI;

    Wnd    := Handle;

    lpVerb := 'properties';

    lpFile := PChar(Application.ExeName);

    nShow  := SW_SHOWNORMAL;

  end;

  ShellExecuteEX(@Sei);

end;