Danke
Habe mich im World Wide Web schon umgesehen.
Ich lasse es jetzt so wie es ist also ohne Rückgabe bei ref.
Maßgeblich sind meine Samples da funktioniert es ja so wie es soll.
Andere Anwendungen müssen sich halt die passende Lösung selber suchen.
Das ist was ich zurückgebe und das ist korrekt.
Delphi-Quellcode:
procedure BASSVIS_Free(var Base: TBASSVIS_PARAM); stdcall;
//......
BASSVISKIND_WMP:
begin
BASSWMPVisAPI.WMPVIS_Free(Base.VisHandle);
if BASSWMPVisAPI.WMPVIS_IsFree then
begin
Base.VisHandle := 0;
Base.VisGenWinHandle := 0;
end;
end;
gruss