Operator will wieder nicht!

[EWeiss]

Zitat von DeddyH:

Wenn Du es so machst, sollte es gehen:

Delphi-Quellcode:

const 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;

type EffectsCapability = (
        EFFECT_CANGOFULLSCREEN,
        EFFECT_HASPROPERTYPAGE,
        EFFECT_VARIABLEFREQSTEP,
        EFFECT_WINDOWEDONLY,
        EFFECT2_FULLSCREENEXCLUSIVE);

Hmmm ..

Ich habs jetzt so und müßte funktionieren.
Trotzdem Danke für die info

Delphi-Quellcode:

function BASS_WMPVIS_SetFullScreen(FullScreen: BOOL): boolean; stdcall;
Var
   hr                  : HRESULT;
   dwCaps              : LongInt;
   CanGoFullScreen     : boolean;
   WindowedOnly        : boolean;
   FullScreenExclusive : boolean;

begin


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

  dwCaps := 0;
  GetCapabilities(dwCaps);

  CanGoFullScreen := Boolean((dwCaps and Byte(EFFECT_CANGOFULLSCREEN)));
  WindowedOnly := Boolean((dwCaps and Byte(EFFECT_WINDOWEDONLY)));
  FullScreenExclusive := Boolean((dwCaps and Byte(EFFECT2_FULLSCREENEXCLUSIVE)));

  if (not CanGoFullScreen or WindowedOnly or FullScreenExclusive) then
  begin
    result := false;
    exit;
  end;

  hr := GoFullscreen(FullScreen);
  Result := hr = S_OK;

end;