Class TRasDialerForm (unit RasDial1)

Inherits from

TAutoForm

Constructors



Functions

procedure CancelButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure CheckTimerTimer(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ConnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure EntryNameComboBoxChange(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuAboutClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuCancelClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuCleardurationClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuConfigureClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuConnectClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuNewClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuPropertiesClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MnuQuitClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure RunInternetBrowser1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure RunInternetMailReader1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure RunInternetNewsReader1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TimeRestrictions1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure UserNameComboBoxChange(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Dial(EntryName, UserName, Password : String);

Public declarations

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LogMessage(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WndProc(var Msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Connected;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Disconnected;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisplayActiveConn;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoCancel;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoConfigure;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoConnect;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoDuration;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoNew;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoProperties;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure GetActiveConn;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetActiveConnHandle(szName : String) : THRASCONN;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure GetDuration;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetKeyDuration : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure GetUserNameList;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure GetUserPassword;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LoadPhoneBook;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SaveSettings;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SelectPhoneBookEntry(EntryName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WMAutoConnect(var Msg : TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

CancelButton : TButton;


CheckTimer : TTimer;


ConnectButton : TButton;


DurationLabel : TLabel;


EntryNameComboBox : TComboBox;


File1 : TMenuItem;


InfoListBox : TListBox;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


MainMenu1 : TMainMenu;


MnuAbout : TMenuItem;


MnuCancel : TMenuItem;


MnuClearduration : TMenuItem;


MnuConfigure : TMenuItem;


MnuConnect : TMenuItem;


MnuNew : TMenuItem;


MnuOptions : TMenuItem;


MnuProperties : TMenuItem;


MnuQuit : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


PasswordEdit : TEdit;


RunInternetBrowser1 : TMenuItem;


RunInternetMailReader1 : TMenuItem;


RunInternetNewsReader1 : TMenuItem;


SavePWCheckBox : TCheckBox;


TimeRestrictions1 : TMenuItem;


UserNameComboBox : TComboBox;


aRasConn : array [0..10] of TRASCONN;


ConnectTime : DWORD;


DialingPassword : String;


DialingServer : String;


DialingUserName : String;


hRasConn : THRASCONN;

Private declarations

nRasConnCount : DWORD;



Constructors


Functions


procedure CancelButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure CheckTimerTimer(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ConnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure EntryNameComboBoxChange(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuAboutClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuCancelClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuCleardurationClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuConfigureClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuConnectClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuNewClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuPropertiesClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MnuQuitClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure RunInternetBrowser1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure RunInternetMailReader1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure RunInternetNewsReader1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TimeRestrictions1Click(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure UserNameComboBoxChange(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Dial(EntryName, UserName, Password : String);

Public declarations

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LogMessage(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WndProc(var Msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Connected;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Disconnected;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisplayActiveConn;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoCancel;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoConfigure;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoConnect;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoDuration;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoNew;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoProperties;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure GetActiveConn;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetActiveConnHandle(szName : String) : THRASCONN;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure GetDuration;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetKeyDuration : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure GetUserNameList;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure GetUserPassword;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LoadPhoneBook;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SaveSettings;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SelectPhoneBookEntry(EntryName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WMAutoConnect(var Msg : TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


CancelButton : TButton;


CheckTimer : TTimer;


ConnectButton : TButton;


DurationLabel : TLabel;


EntryNameComboBox : TComboBox;


File1 : TMenuItem;


InfoListBox : TListBox;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


MainMenu1 : TMainMenu;


MnuAbout : TMenuItem;


MnuCancel : TMenuItem;


MnuClearduration : TMenuItem;


MnuConfigure : TMenuItem;


MnuConnect : TMenuItem;


MnuNew : TMenuItem;


MnuOptions : TMenuItem;


MnuProperties : TMenuItem;


MnuQuit : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


PasswordEdit : TEdit;


RunInternetBrowser1 : TMenuItem;


RunInternetMailReader1 : TMenuItem;


RunInternetNewsReader1 : TMenuItem;


SavePWCheckBox : TCheckBox;


TimeRestrictions1 : TMenuItem;


UserNameComboBox : TComboBox;


aRasConn : array [0..10] of TRASCONN;


ConnectTime : DWORD;


DialingPassword : String;


DialingServer : String;


DialingUserName : String;


hRasConn : THRASCONN;

Private declarations


nRasConnCount : DWORD;