Delphi-Quellcode:
{$IFDEF TRACEMODE = 1}
function FindTraceWindow: Integer;
{$ENDIF}
Habe es jetzt mal übersetzt mit Fehler die kommen noch weg wenn ich es richtig debugen kann.
Delphi-Quellcode:
unit uTracer;
interface
uses Windows,
Messages,
Forms,
Classes,
Variants,
SysUtils;
.
Der aufruf würde so erfolgen
Delphi-Quellcode:
SetLength(mytest,3);
mytest[0] := 'BASSVIS_Init '; mytest[1] := GlobalVisInit; mytest[2] := MainHandle;
Trace(mytest);
Wie gesagt ich komme nur in die untere Trace procedure hinein..
sollte aber die obere sein
wenn ich es jetzt so mache wie du vorgeschlagen hast.
Delphi-Quellcode:
{$IFDEF TRACEMODE = 1}
procedure Trace(args : array of Variant);
begin
If (DoTrace) Then
SendTraceMessage(args);
end;
{$ENDIF}
nicht genügend forward .. blablabla
bei der oben declarierten procedure um sie öffentlich zu machen
gruss