Ausgaben sind jetzt optional

2 files changed, 17 insertions, 1 deletions

diff --git a/epost.lpr b/epost.lpr
index b37423f..d0a2d52 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -117,6 +117,22 @@ begin
        parallelLesen:=false;
        continue;
      end;
+     if s='ohne Logdateien' then begin
+       __ausgabenMaske:=__ausgabenMaske or 1;
+       continue;
+     end;
+     if s='mit Logdateien' then begin
+       __ausgabenMaske:=__ausgabenMaske and not 1;
+       continue;
+     end;
+     if s='ohne Bildschirmausgaben' then begin
+       __ausgabenMaske:=__ausgabenMaske or 2;
+       continue;
+     end;
+     if s='mit Bildschirmausgaben' then begin
+       __ausgabenMaske:=__ausgabenMaske and not 2;
+       continue;
+     end;
      if startetMit('externer Befehl:',s) then begin
        if externerBefehl(syntaxtest,s) then continue;
        aufraeumen;
diff --git a/epostunit.pas b/epostunit.pas
index 6cfa865..cc4f696 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -3616,7 +3616,7 @@ end;
 destructor tLogThread.destroy;
 begin
  raisedException.free;
- if not behalteLogs then cleanupLog(ThreadID);
+ if (not behalteLogs) and not odd(__ausgabenMaske) then cleanupLog(ThreadID);
  inherited destroy;
 end;