没分了，求救呀？怎么样在没有对话框的前提下创建一个新的拔号连接？

Question

我在做一个拔号网络的程式，用的是DIALUP控件，调用它的函数创建一个新的拔号连接时，会出现一个对话框，让输入一个拔号号码和拔号连接名称。但是有什么办法可以在程序中给拔号号码和拔号连接名称赋值，然后创建一个新的拔号连接，而不通过弹出对话框的方式？

Answer 1

dialparams: TRasDialParams;//当前选中号码拨号配置信息    
with dialparams do
    begin
      .......
    end;

Answer 2

直接调用创建拔号连接的函数,那个函数就没有这些参数可以去赋呀,所以不行.TO: mxj2000(小马(QQ 25604698 杭州)) dialparams: TRasDialParams;//当前选中号码拨号配置信息    
with dialparams do
    begin
      .......
    end;是不是像上面这样赋拔号连接名称,拔号号码,拔号帐号,拔号密码后,就不用再调用CreateEntry函数,创建一个新的拔号连接,而直接调用DIAL函数进行拔号连接就可以了吗?

Answer 3

救命呀,不行呀,各位大侠,再帮忙看一下吧:
var
  Fp                  : LongBool;
  R                   : Integer;
  C                   : Array[0..100] of Char;
  ErrS                : String;
  DialParams          : TRasDialParams;begin  FillChar(DialParams, SizeOf(TRasDialParams), 0);
  with DialParams do
  begin
    dwSize:=Sizeof(TRasDialParams);
    StrPCopy(szEntryName, '1234');
    StrPCopy(szPhoneNumber,'#777');
    StrPCopy(szUserName,'CARD');
    StrPCopy(szPassword,'CARD');
  end;
  R:=RasGetEntryDialParams(nil, DialParams, Fp);
  if R<>0 then
  begin
    Result:=R;
    //if Assigned(FOnError) then FOnError(Self,R,'GetEntryDialParams failed');
    if Assigned(FOnError) then FOnError(Self,R,'取得拔号网络参数失败！');
    Exit;
  end;1234是一个没有建立的拔号连接,这样子的话,R返回值不会等于0的,根本连不上.若我给一个已存在的拔号连接的名字,就没问题了,头大呀?