[Tools] Add DShow webcam report tool

[yuyoyuppe]

Summary of the Pull Request

What is this about:
This PR adds DShowWebcamReportTool, which will report all supported video format modes for all web cameras in your system. The info is printed to WebcamReport.txt.

What is include in the PR:

How does someone test / validate:

Quality Checklist

• Linked issue: #xxx
• Communication: I've discussed this with core contributors in the issue.
• Tests: Added/updated and all pass
• Installer: Added/updated and all pass
• Localization: All end user facing strings can be localized
• Docs: Added/ updated
• Binaries: Any new files are added to WXS / YML
  • No new binaries
  • YML for signing for new binaries
  • WXS for installer for new binaries

Contributor License Agreement (CLA)

A CLA must be signed. If not, go over here and sign the CLA.

[github-actions]

Misspellings found, please review:

• AMPROPERTY
• AMPROPSETID
• CDEF
• cguid
• devenum
• DEVMON
• dshow
• IBase
• ICreate
• IKs
• IMoniker
• IPin
• IProperty
• majortype
• MEDIASUBTYPE
• MEDIATYPE
• MJPG
• PINDIR
• Strmiids
• VIDEOINFOHEADER
• wistd
• YUY
• YUYV

To accept these changes, run the following commands from this repository on this branch

pushd $(git rev-parse --show-toplevel)
perl -e '
my @expect_files=qw('".github/actions/spell-check/expect.txt"');
@ARGV=@expect_files;
my @stale=qw('"BText GText INITGUID installpath RText Webcam "');
my $re=join "|", @stale;
my $suffix=".".time();
my $previous="";
sub maybe_unlink { unlink($_[0]) if $_[0]; }
while (<>) {
  if ($ARGV ne $old_argv) { maybe_unlink($previous); $previous="$ARGV$suffix"; rename($ARGV, $previous); open(ARGV_OUT, ">$ARGV"); select(ARGV_OUT); $old_argv = $ARGV; }
  next if /^(?:$re)(?:(?:\r|\n)*$| .*)/; print;
}; maybe_unlink($previous);'
perl -e '
my $new_expect_file=".github/actions/spell-check/expect.txt";
use File::Path qw(make_path);
make_path ".github/actions/spell-check";
open FILE, q{<}, $new_expect_file; chomp(my @words = <FILE>); close FILE;
my @add=qw('"AMPROPERTY AMPROPSETID CDEF cguid devenum DEVMON dshow IBase ICreate IKs IMoniker initguid IPin IProperty majortype MEDIASUBTYPE MEDIATYPE MJPG PINDIR Strmiids VIDEOINFOHEADER webcam wistd YUY YUYV "');
my %items; @items{@words} = @words x (1); @items{@add} = @add x (1);
@words = sort {lc($a) cmp lc($b)} keys %items;
open FILE, q{>}, $new_expect_file; for my $word (@words) { print FILE "$word\n" if $word =~ /\w/; };
close FILE;'
popd

[enricogior]

LGTM