Probleme mit Bass_Vis

[BassFan]

Wer kann helfen

Delphi-Quellcode:

Init: function(WinampVisModule: PWinampVisModule): integer; cdecl;

Mir dieser function ausgeführt als

Delphi-Quellcode:

VisInfo^.VisModule^.Init(VisInfo^.VisModule);

werden die Plugins intitalisiert und sichtbar geschaltet.

Wie kann ich diese ändern das bei der initialisierung das Plugin
zuerst unsichtbar ist.
gibt es in Delphi dafür einen Befehl?

würde es gern in dieser art machen.

Delphi-Quellcode:

Init: function(WinampVisModule: PWinampVisModule; Visible: Boolean): integer; cdecl;

Nur wie übergeben?
Damit es auf dem Plugin angewendet auch funktioniert.

Für was steht 'cdecl' was bewirkt dieser Anhang.

gruß

EDIT: Oder kann man ein Modul generell beim start unsichtbar schalten?

[BassFan]

Vielleicht weiß es jemand
Seltsames Startverhalten WindowHandle wird zu spät oder gar nicht (0) angezeigt.

Delphi-Quellcode:

  WinAtom := Windows.RegisterClassEx(wClass);

  if WinAtom <> 0 then
    Result := CreateWindowEx(0, AppClass, AppTitle,
      WS_POPUP,       // Kein Frame, Unsichtbar
      0, 0, 275, 116, // x, y, width, height
      {parent} 0, 0, hInst, nil)
  else
    Result := 0;


  // Hwnd von der ausführenden Anwendung
  if AppParentHandle <> 0 then
  begin
    VisPlgHandle := Result;
    BASS_WINAMPVIS_GetAmpHwnd;
    GetWindowRect(AppParentHandle, AppREC);
    MoveWindow(VisPlgHandle, 0, 0, AppREC.Right - AppREC.Left, AppREC.Bottom - AppREC.Top, True);
  end
  else

In der zeile 'BASS_WINAMPVIS_GetAmpHwnd;' wird das Handle 'VisPlgHandle' an die Anwendung übergeben.
Diese läd die Information aus dieser Function.

Delphi-Quellcode:

function BASS_WINAMPVIS_GetAmpHwnd: DWORD; stdcall;

begin
    //repeat
    Result := VisPlgHandle;
    //until VisPlgHandle <> 0
end;

Warum wird das Handle mit 0 oder zu spät übergeben ?

Noch ein Problem alle Plugins die gestartet werden haben den WaitCursor
solange bis ich wenn vorhanden das Menü aktiviert habe.
Kann es sein das irgendwo etwas hängt oder nicht abgeschlossen wurde?

gruß

[mlspider]

Sorry das ich den alten Kaffee nochmals aufwärme. Ich versuche das Project zu kompilieren. Leider bekomme ich die Meldung, dass die Datei madExcept.dcu fehlt. Ich habe die Bass 2.2 installiert.

[turboPASCAL]

ggf. steht in der uses-Klausel noch die Datei madExcept-Unit, einfach löschen.
Diese Unit ist (nur) zum Debuggen.

Delphi-Quellcode:

uses
  Windows, Classes, ..., madExcept;

Es währe nett wenn du noch sagst welches Project!

[mlspider]

Perfect, danke.