Ja ne, iss klar. Wir reden aneinander vorbei, ich wollte Dich lediglich auf das offensichtliche Aufmerksam machen aber bin gescheitert und belasse es dabei.
Du redest von function Load_TRACEDLL(const dllfilename: string): BOOL;
und ich von Trace_Loaded
.
Wenn diese Methode das Trace_Loaded
setzen würde wäre es nie zu dieser Diskussion gekommen.
Verzeihung und Danke für alles.
Sie setzt es und ist auch logisch!
Nun ja eigentlich sollte das klar und ersichtlich sein aber gut ich kann es gerne nochmal ausführlicher machen.
Was ist die Rückgabe von Load_TRACEDLL ? Richtig.. BOOL.
Also ist es doch logisch das ich damit mein Trace_Loaded verknüpfe oder?
Trace_Loaded := Load_TRACEDLL(ExtractFilePath(paramstr(0)) + dllfile);
Deshalb sagte ich es ist True.. abhängig davon ob die Funktion ein True zurück gibt.
Delphi-Quellcode:
function BASSVIS_Init(Kind: TBASSVIS_KIND_T; MainHandle: HWND; UseDebug: BOOL = false): BOOL; stdcall;
var
HWND: DWord;
begin
Result := False;
if UseDebug then
begin
if not Trace_Loaded then
begin
Trace_Loaded := Load_TRACEDLL(ExtractFilePath(paramstr(0)) + dllfile);
if Trace_Loaded then
begin
Trace('');
repeat
HWND := FindWindow('TRACER', 'TRACER'); // warten bis das Fenster erstellt wurde
WinprocessMessages;
until HWND <> 0;
end;
end;
end else
if Trace_Loaded then
Unload_TRACEDLL;
// ....
end;