ScriptzRasDialerDemo

From 40tude Dialog Wiki

zRasDialerDemo.ds - Dialog demo script for include file zRasDialer.ds

See Handle dialup connections for details.

---

// ===========================================================================
// zRasDialerDemo.ds
// Dialog demo script for include file "zRasDialer.ds"
// Version 2003-08-08 (Jürgen Haible, http://www.elbiah.de/tools/dialog/)
// ===========================================================================

Program zRasDialerDemo;

uses Forms, StdCtrls;

{$I zRas}
{$I zRasDialer}

Begin

   // make sure that we have a connection
   // (if not, ask for which to dial)
   if RasDialer then begin

      // transfer data
      ADo('SendAllInOutbox');
      ADo('GetNewHeadersInSubscribedGroups');
      ADo('GetNewEmailsForAllIdentities');

      // hangup
      RasHangupAll;

   end;

End.

---

JuergenHaible