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

3 files changed, 48 insertions, 51 deletions

diff --git a/emails.lps b/emails.lps
index 1178067..ce5a2a2 100644
--- a/emails.lps
+++ b/emails.lps
@@ -19,7 +19,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="35" Y="9"/>
+        <TopLine Value="190"/>
+        <CursorPos X="25" Y="217"/>
         <UsageCount Value="24"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -28,8 +29,8 @@
         <Filename Value="../units/popunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="134"/>
-        <CursorPos X="5" Y="161"/>
+        <TopLine Value="454"/>
+        <CursorPos X="46" Y="483"/>
         <UsageCount Value="24"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -49,8 +50,8 @@
       <Unit5>
         <Filename Value="../units/mystringlistunit.pas"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="147"/>
-        <CursorPos X="25" Y="158"/>
+        <TopLine Value="25"/>
+        <CursorPos X="6" Y="47"/>
         <UsageCount Value="11"/>
       </Unit5>
       <Unit6>
@@ -66,125 +67,118 @@
         <UsageCount Value="10"/>
       </Unit7>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="28" HistoryIndex="27">
       <Position1>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="253" Column="27" TopLine="229"/>
+        <Caret Line="186" Column="35" TopLine="166"/>
       </Position1>
       <Position2>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="263" Column="29" TopLine="230"/>
+        <Caret Line="200" Column="21" TopLine="180"/>
       </Position2>
       <Position3>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="281" Column="31" TopLine="249"/>
+        <Caret Line="240" Column="31" TopLine="217"/>
       </Position3>
       <Position4>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="588" Column="61" TopLine="562"/>
+        <Caret Line="251" TopLine="231"/>
       </Position4>
       <Position5>
         <Filename Value="../units/popunit.pas"/>
+        <Caret Line="252" Column="33" TopLine="232"/>
       </Position5>
       <Position6>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="271" Column="30" TopLine="245"/>
+        <Caret Line="253" Column="36" TopLine="243"/>
       </Position6>
       <Position7>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="55" Column="35" TopLine="22"/>
+        <Caret Line="281" Column="52" TopLine="262"/>
       </Position7>
       <Position8>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="186" Column="35" TopLine="166"/>
+        <Caret Line="286" Column="23" TopLine="266"/>
       </Position8>
       <Position9>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="200" Column="21" TopLine="180"/>
+        <Caret Line="187" TopLine="156"/>
       </Position9>
       <Position10>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="240" Column="31" TopLine="217"/>
+        <Caret Line="188" TopLine="156"/>
       </Position10>
       <Position11>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="251" TopLine="231"/>
+        <Caret Line="551" TopLine="530"/>
       </Position11>
       <Position12>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="252" Column="33" TopLine="232"/>
+        <Caret Line="598" Column="45" TopLine="577"/>
       </Position12>
       <Position13>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="253" Column="36" TopLine="243"/>
+        <Caret Line="605" Column="22" TopLine="583"/>
       </Position13>
       <Position14>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="281" Column="52" TopLine="262"/>
       </Position14>
       <Position15>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="286" Column="23" TopLine="266"/>
+        <Caret Line="264" Column="16" TopLine="231"/>
       </Position15>
       <Position16>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="187" TopLine="156"/>
+        <Caret Line="282" Column="18" TopLine="250"/>
       </Position16>
       <Position17>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="188" TopLine="156"/>
+        <Caret Line="316" Column="18" TopLine="283"/>
       </Position17>
       <Position18>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="551" TopLine="530"/>
+        <Caret Line="353" Column="16" TopLine="321"/>
       </Position18>
       <Position19>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="598" Column="45" TopLine="577"/>
+        <Caret Line="369" Column="16" TopLine="337"/>
       </Position19>
       <Position20>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="605" Column="22" TopLine="583"/>
+        <Caret Line="385" Column="16" TopLine="353"/>
       </Position20>
       <Position21>
         <Filename Value="../units/popunit.pas"/>
+        <Caret Line="401" Column="16" TopLine="369"/>
       </Position21>
       <Position22>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="264" Column="16" TopLine="231"/>
+        <Caret Line="454" Column="20" TopLine="422"/>
       </Position22>
       <Position23>
-        <Filename Value="../units/popunit.pas"/>
-        <Caret Line="282" Column="18" TopLine="250"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="9" Column="35"/>
       </Position23>
       <Position24>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="316" Column="18" TopLine="283"/>
+        <Caret Line="161" Column="5" TopLine="134"/>
       </Position24>
       <Position25>
-        <Filename Value="../units/popunit.pas"/>
-        <Caret Line="353" Column="16" TopLine="321"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="9" Column="35"/>
       </Position25>
       <Position26>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="369" Column="16" TopLine="337"/>
+        <Caret Line="229" Column="35" TopLine="215"/>
       </Position26>
       <Position27>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="385" Column="16" TopLine="353"/>
+        <Caret Line="41" Column="41" TopLine="19"/>
       </Position27>
       <Position28>
         <Filename Value="../units/popunit.pas"/>
-        <Caret Line="401" Column="16" TopLine="369"/>
+        <Caret Line="229" Column="48" TopLine="193"/>
       </Position28>
-      <Position29>
-        <Filename Value="../units/popunit.pas"/>
-        <Caret Line="454" Column="20" TopLine="422"/>
-      </Position29>
-      <Position30>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="35"/>
-      </Position30>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>
diff --git a/unit1.lfm b/unit1.lfm
index 4677922..b874def 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 137
+  Left = 0
   Height = 756
-  Top = 158
+  Top = 274
   Width = 999
   Caption = 'Form1'
   ClientHeight = 756
@@ -72,18 +72,18 @@ object Form1: TForm1
   end
   object CheckBox1: TCheckBox
     Left = 272
-    Height = 24
+    Height = 21
     Top = 596
-    Width = 98
+    Width = 93
     Caption = 'aufploppen'
     OnClick = CheckBox1Click
     TabOrder = 2
   end
   object CheckBox2: TCheckBox
     Left = 416
-    Height = 24
+    Height = 21
     Top = 596
-    Width = 94
+    Width = 86
     Caption = 'Ton geben'
     Checked = True
     OnClick = CheckBox1Click
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:='';