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;