用Delphi拨号(200分)

用Delphi模拟电话拨号，应该是要通过拨号网络（或Moden）吗？只要能完成拨号
即可，不管是否上网。简单一点说就是能用Delphi打电话吗？盼！急！！

当然可以，利用CreateFile,ReadFile,WriteFile等API和串口通信，发送AT命令（例如ADDT010
12345678）就可以了，
我用这种方法，编写过门禁的远端控制数据传输和报警检测程序，非常方便。

Function DUNDialDefault(Hide : Boolean) : Boolean;
// Show or hide the dial-up dialog
var Reg : TRegistry;
var TempResult : Boolean;
var Name, con : String;
var ASW : Integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/RemoteAccess', False) then
begin
TempResult := True;
Name := Reg.ReadString('Default');
end
else begin
tempresult := False;
end;
Reg.Free;
if TempResult = True then
begin
if Hide = True then ASW := SW_HIDE
else ASW := SW_SHOWDEFAULT;
con := 'rnaui.dll,RnaDial ' + Name;
ShellExecute(0, nil, 'rundll32.exe' , PChar
(con), 'C:/windows/', ASW);
end;
Result := tempResult;
end;

网上很多控件可以完成这个功能.

多人接受答案了。