RAS 分机拨号的问题.(50分)

在不永久改变号码的情况下..如何实现分机拨号!!!

例如...在win2000里....重新设置电话号码的时候,提示"是否永久改变号码"点击"否",
将以新号码拨号,而不存入电话本(*.pbk)中

这是ras的拨号编程....真的没人帮我吗???

关注！

为什么没人回复呀????

那好吧.我再说的明白一点.就是我现在是用RasSetEntryProperties()存入地址本....
然后调用拨号的函数.不过我现在要实现分机拨号...至于号码我不想存入地址本,而又要
实现拨号,请问我该怎样做???

各位大虾,就高抬贵手救救我吧?????

用这个拨号试试：


function MyDial(FEntryName: String;
FPhoneNumber: String;
FCallbackNumber: String;
FUserName: String;
FPassword: String;
FDomain: String;
FHRasConn: THRasConn): Longint;
var
DialParams: TRasDialParams;
lpfPassword: LongBool;
begin
if FHRasConn > 0 then HangUp;

FillChar(DialParams, SizeOf(TRasDialParams), #0);

with DialParams do
begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, FEntryName);
end;

if FEntryName <> '' then
begin
Result := RasGetEntryDialParams(nil, DialParams, lpfPassWord);
if Result <> 0 then Exit;
end
else
with DialParams do
begin
dwSize := SizeOf(TRASDialParams);
szEntryName := '';
UniqueString(FPhoneNumber);
StrLCopy(szPhoneNumber, PChar(FPhoneNumber), RAS_MaxPhoneNumber);
UniqueString(FCallBackNumber);
UniqueString(FCallBackNumber);
StrLCopy(szCallbackNumber, PChar((FCallBackNumber)),

RAS_MaxCallbackNumber);
UniqueString(FUserName);
StrLCopy(szUserName,PChar((FUserName)) , UNLEN);
UniqueString(fPassWord);
StrLCopy(szPassword, PChar((fPassWord)), PWLEN);
UniqueString(FDomain);
StrLCopy(szDomain, Pchar(FDomain), DNLEN);
end;

FHRasConn := 0;

Result := RasDial(nil, nil, DialParams, 0, nil, FHRasConn);
end;

多人接受答案了。