Type EffectsCapability =
   (EFFECT_CANGOFULLSCREEN = $00000001, // can the effect go full screen?
   EFFECT_HASPROPERTYPAGE = $00000002, // does the effect have a property page?
   EFFECT_VARIABLEFREQSTEP = $00000004, // should effect return frequency data with variable size steps?
   EFFECT_WINDOWEDONLY = $00000008,
   EFFECT2_FULLSCREENEXCLUSIVE = $00000010);

Var
   dwCaps : LongInt;
   CanGoFullScreen : boolean;
   WindowedOnly : boolean;
   FullScreenExclusive : boolean;

begin


  if not Assigned(_IWmpEffects) then
  begin
    result := false;
    exit;
  end;

  dwCaps := 0;
  GetCapabilities(dwCaps);

  CanGoFullScreen := (dwCaps and EFFECT_CANGOFULLSCREEN);