DosCommand - Stop erzeugt eine Execption

[ERBITUX]

Ich habe folgendes Problem:

Ich habe mit GetIt die Komponente DosCommand installiert.
Das starten eines Dos-Befehls usw. funktioniert problemlos. Wenn ich aber ein Dos-Programm starte und wieder beenden will, bekomme ich eine Exception: " Thread Fehler - Das Handle ist ungültig"
Dabei ist es vollkommen egal ob es sich um ein Kommandozeilenprogramm oder z.b. das Windowseigene CMD handelt. Hat jemand eine Idee wie ich das Problem beheben, oder wenigstens die Exeption so abfangen kann das keine Fehlermeldung mehr aufpoppt?

So starte ich die Kommandozeilenprogramme:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  doscmd.CommandLine := 'cmd';
  doscmd.Execute;
end;

So stoppe ich es:

Code:

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    doscmd.Stop;
  finally
    //Tabelle aktualisieren
  end;
end;

Ich mache es also eigentlich so, wie in der Beschreibung der Komponente beschrieben. Oder übersehe ich etwa etwas?

[Schokohase]

Das Problem liegt in der Zeile

Delphi-Quellcode:

{ TDosThread }

constructor TDosThread.Create(AOwner: TDosCommand; ACl, ACurrDir: string; ALines: TStringList; AOl: TStrings; ATimer: TProcessTimer; AMtab, AMtalo: Integer; AOnl: TNewLineEvent; AOnc: TNewCharEvent; Ot: TNotifyEvent; AOtp: TTerminateProcessEvent; Ap: Integer; Aito: Boolean; AEnv: TStrings; AOnCharDecoding: TCharDecoding; AOnCharEncoding: TCharEncoding);
begin
  inherited Create(False);
  FOnCharEncoding := AOnCharEncoding;
  FOnCharDecoding := AOnCharDecoding;
  FEnvironment := TStringList.Create;
  FEnvironment.AddStrings(AEnv);

  FreeOnTerminate := True; // Das ist ein Problem!

  FOwner := AOwner;
  FOwner.FEndStatus := Ord(esStill_Active);
  FCommandLine := ACl;
  FCurrentDir := ACurrDir;
  FLines := ALines;
  FOutputLines := AOl;
  FInputLines := TInputLines.Create;
  FInputToOutput := Aito;
  FOnNewLine := AOnl;
  FOnNewChar := AOnc;
  FOnTerminateProcess := AOtp;
  Self.OnTerminate := Ot;
  FTimer := ATimer;
  FMaxTimeAfterBeginning := AMtab;
  FMaxTimeAfterLastOutput := AMtalo;
  FPriority := Ap;
  FTerminateEvent := TEvent.Create(nil, True, False, '');
end;

Quelle

Kommentiere diese Zeile einfach mal aus und teste ob dadurch noch alles wie gewünscht funktioniert.

Da es keinen einzigen Unit-Test gibt kann man sich nicht sicher sein ob diese Code-Änderung einem irgendwo wieder auf die Füße fällt.

[ERBITUX]

Hallo,

Super. Danke das hat funktioniert.