关于拨号问题,紧急求援(100分)

小弟目前正在编写一个拨号网络程序,现有三个问题向高手请教
1.我知道用winexe()可以调用 windows拨号程序,但调用这个程序后
怎样实现自动拨号,及挂机
2.由于程序需要,我必须绕过windows不使用拨号网络,直接进行拨号上网,请
问使用哪个函数,如何检测modem状态及挂机.
3.大家都知道,每当使用windows的拨号网络上网,windows会产生一个进程
rnaapp,如果你挂机,这个进程并不立即消失,这是为什莫.如果有人先使用
windows拨号网络拨号上网,当我使用winexe()时.程序会报错,其他程序正在使用
,我怎样可以获得这个句柄,并杀死他.

好象友人问过这样的问题,如果需要拨号,直接向串口发命令就行.
找一些AT命令的资料就可以了.
如果需要AT命令的资料给我 email:
hapcoer@263.net

用TDialup控件吧，很方便的，我们公司做的程序就用了它。
那个rnaapp确实很讨厌，如果不把它杀S，就不能进行下一次拔号。 ：（

怎样可以得到tdialuo控件.能打个包email给我吗.

好的。

我也想要一份TDIAL UP的控件，能email给我吗？

echo.echo@263.net,谢谢！

type
TRasDialParamsA = record
dwSize: LongInt;
szEntryName: Array[0..RAS_MaxEntryName] of AnsiChar;
szPhoneNumber: Array[0..RAS_MaxPhoneNumber] of AnsiChar;
szCallbackNumber: Array[0..RAS_MaxCallbackNumber] of AnsiChar;
szUserName: Array[0..UNLEN] of AnsiChar;
szPassword: Array[0..PWLEN] of AnsiChar;
szDomain: Array[0..DNLEN] of AnsiChar;
{$IFDEF WINVER41}
dwSubEntry: Longint;
dwCallbackId: Longint;
{$ENDIF}
end;

TRasDialParams = TRasDialParamsA;

function RasDial(
lpRasDialExt: LPRasDialExtensions;
lpszPhoneBook: PChar;
var params: TRasDialParams;
dwNotifierType: Longint;
lpNotifier: Pointer;
var rasconn: THRasConn
): Longint; stdcall; external 'rasapi32.dll' name 'RasDialA';


var
dialparams: TRasDialParams;
hRas: THRasConn;
ret:integer;
begin
FillChar(dialparams, SizeOf(TRasDialParams), 0);
with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName , edEntryName.Text);
StrPCopy(szUserName, edUserName.Text);
StrPCopy(szPassword, edPassWord.Text);
end;
hRas := 0;
ret := RasDial(nil, nil, dialparams, 0, nil, hRas);
if ret=0 then
showmessage('拨号成功');

end;

多人接受答案了。