function TOpenDialog.DoExecute(Func: Pointer; ParentWnd: HWND): Bool;
.............
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs and
     StyleServices.Enabled and (Template = nil) and
     not (Assigned(FOnIncludeItem) or Assigned(FOnClose) or Assigned(FOnShow)) then
  begin
    // This requires Windows Vista or later
    if Func = @GetOpenFileName then
      FileDialogWrapper := TFileOpenDialogWrapper.Create(Self)
    else
      FileDialogWrapper := TFileSaveDialogWrapper.Create(Self);

    try
      Result := FileDialogWrapper.Execute(ParentWnd);
    finally
      FileDialogWrapper.Free;
    end;
    Exit;
  end;
  ..............
end;

function TOpenDialog.DoExecute(Func: Pointer; ParentWnd: HWND): Bool;
  .............
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs and
     StyleServices.Enabled and (Template = nil) and
     not (Assigned(FOnIncludeItem) or Assigned(FOnClose) or Assigned(FOnShow)) then
  begin
    ........................
    Exit;
  end;
  .................
    Flags := OFN_ENABLEHOOK;
    FlagsEx := 0;

    for Option := Low(Option) to High(Option) do
      if Option in FOptions then
        Flags := Flags or OpenOptions[Option];
    if NewStyleControls then
    begin
      Flags := Flags xor OFN_EXPLORER;
      ..............
    end
    else
      Flags := Flags and not OFN_EXPLORER;
    .............
end;