拨号控件代码

代码说明：

unit DialUp;interfaceuses  SysUtils, Windows, Dialogs, Classes, ExtCtrls, Forms, Messages;{******************************************************}{******************************************************}{******************************************************}// RAS API header by Davide Moretti{******************************************************}{******************************************************}{******************************************************}(*RASAPI*){* Copyright (c) 1992-1995, Microsoft Corporation, all rights reserved(*RASAPI*)**(*RASAPI*)** ras.h(*RASAPI*)** Remote Access external API(*RASAPI*)** Public header for external API clients(*RASAPI*)*}(*RASAPI*)(*RASAPI*){ Delphi conversion by Davide Moretti }(*RASAPI*){ Note: All functions and structures defaults to Ansi. If you wan