如何实现Ras的拨号实现啊？up,关注，收藏没有分啊！！

Question

//用这个函数就可以了，参数要设置正确才可以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;================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================