如何用Delphi创建电话拨号程序?(50分)

如何用Delphi创建电话拨号程序?用什么控件?如何实现?

是MODEM吗？

?

如果只是为了拨电话号码，你可以使用windows/system/里的Mscomm32.ocx，
你把它添加到Delphi里就可以用了，关于它的用法你可以看看它的帮助文件。

用WINEXEC('c:/windows/dialer.exe',sw_normal);调用即可。

比较好的控件有spcomm控件，非常好用！我以前用过它做过WMAIL通知BB机的。

ls

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;

多人接受答案了。