| Class TRasDialerForm (unit RasDial1) |
| 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);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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;
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;