前一阵因为工作需要写了一个类来进行windows拨号,整理了一下,多封装了几个windows ras api,放上来大家提提意见。现在支持读取windows拨号连接列表、拨号、挂断、创建/删除连接,可以适用98/2000/XP,windows me 和NT没测试过,想来应该是可以的。以后有时间写成component,加入对拨号事件的支持。
uses
ras, Classes, SysUtils, StrUtils, Windows, Forms;
type
ERasError = Exception;
type
TRASConnection = class
private
FPlatForm: integer;
FConnected: Boolean;
FRasEntries: TStringList;
FRasConn: HRASCONN;
FParams: RasDialParams;
Ferrno: integer;
function Get...[ 查看全文 ]