anchor.diff:    end;
     
   
  -  { TWinDbgTarget }
   
     TWinDbgTarget = class(TDbgTarget)
     private
       fCmdLine  : String;
       fOnlyProcess  : Boolean;
       fis32proc     : Boolean; //todo:
  -  
       {the root process. If it's terminated the Target is terminated too}
       fMainProc   : TProcessInformation; 
  -    
       fProcesses    : THandleList;
       fThreads      : THandleList;
       fLastEvent    : TDebugEvent;
  
positive.code:   win : TWinDbgTarget;
  begin
    win := TWinDbgTarget.Create;
    if not win.StartDebugProcess(ACommandLine, True) then begin
      win.Free;
      Result := nil
    end else
  
negative.code:   fThreads.DeleteByID(ThreadID);
  end;
  
  function TWinDbgTarget.StartProcess(const ACommandLine: String; OnlyProcess: Boolean): Boolean;
  begin
    fCmdLine:=ACommandLine;
    fOnlyProcess:=OnlyProcess;
  