Ton wird jetzt höchstens ein Mal alle 20 Sekunden gegeben

1 files changed, 6 insertions, 3 deletions

diff --git a/unit1.pas b/unit1.pas
index 3f1e334..a43430e 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -83,7 +83,7 @@ begin
   pc:=tPopClient.create;
   pc.timeout:=10;
   pc.neueNachrichten:=@neueNachrichten;
-  pc.sshUser:='erich';
+//  pc.sshUser:='erich';
   pc.host:='eckner.net';
   pc.user:='notify@eckner.net';
   pc.pass:='C7sd7k8*';
@@ -145,7 +145,9 @@ begin
   memo1.height:=button1.top-memo1.top;
 end;
 
-const __erstesMal: boolean = true;
+const
+  __erstesMal: boolean = true;
+  __letzterTon: extended = 0;
 
 procedure TForm1.FormShow(Sender: TObject);
 begin
@@ -211,7 +213,8 @@ begin
       trayIcon1.hint:=trayIcon1.hint+', davon '+inttostr(mitMarkeDa)+' mit Marke';
       if checkBox1.checked then
         form1.visible:=true;
-      if checkBox2.checked then begin
+      if checkBox2.checked and ((now-__letzterTon > 1/24/60/3) or (now<__letzterTon)) then begin
+        __letzterTon:=now;
         setlength(argumente,1);
         argumente[0]:=extractFilePath(application.exename)+'gotmail.wav';
         ausgabe:='';