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