(M)eine Seite für 40tude Dialog

Dieses Ereignisscript wird bei jedem Start von 40tude Dialog ausgeführt.

In OnStartup kannst du auch die Timer starten, um damit E-Mails und News automatisch in bestimmten Zeiträumen abholen zu lassen (siehe hier). Dein Script sollte dann etwa wie folgt aussehen (hier schon mit dem eingebundenen "ServiceScript"):

Program OnStartup;

Const
// Mails und News automatisch abholen lassen
// Ladeintervall in MINUTEN für Mails
   Time4Mails = 15;
// Ladeintervall in MINUTEN für News
   Time4News  = 5;

{$I _i_OSt_ServiceScript}

Procedure OnStartup();
Begin
  // Wenn keine Wartung (=> ServiceScript) ansteht
  If Not ServiceCheck Then
  Begin
     // Mails und News abrufen
     ADo('GetNewEmailsForAllIdentities')
     ADo('GetNewHeadersInSubscribedGroups');
  End;

  // Timer für Mails stellen
  With Timer1 Do
  Begin
     Interval := 60000 * Time4Mails;
     Enabled  := True;
  End;

  // Timer für News stellen
  With Timer2 Do
  Begin
     Interval := 60000 * Time4News;
     Enabled  := True;
  End;
End;

Begin
End.