关于WIN7下，DELPHI利用RAS去创建拨号网络的问题解决

项目背景：

       因项目需要，需要通过程序利用3G卡，去拨号上网，在利用RAS在WINXP 下可以正常拨号，但是在WIN7下却没有效果，经过分析，是因为创建的拨号器WINXP 下与WIN7上是有区别的，将处理代码贴上：

function Tfrm_webMain.createRasEntry(existEntry:string):string;
var
  dwResult, Size: Integer;
  rasEntry: TRasEntry;
  Buffer: array[0..255] of Byte;
  ErrorInfo: array[0..100] of Char;
begin
  Size := SizeOf(TRasEntry);
  FillChar(RasEntry, SizeOf(TRasEntry), 0);
  with RasEntry do
  begin
    dwSize := Size;
    {启用软件压缩RASEO_SwCompression，启用第一个可使用设备拨号RASEO_SpecificNameServers，Use default gateway on remote network，RASEO_RemoteDefaultGateway}
    dwfOptions :=RASEO_SwCompression+RASEO_SpecificNameServers+RASEO_RemoteDefaultGateway;
    {$IFDEF WINVER>=$501}
    dwfOptions2 :=RASEO2_DontNegotiateMultilink;//WIN7下 设置该属性，取消选择，为单链路连接协商多重链接
    {$ENDIF}
    strCopy(szDeviceName, PChar(CSAisinoModem));
    dwfNetProtocols:=RASNP_Ip;
    rasEntry.szDeviceType:=RASDT_Modem;
    dwFramingProtocol := RASFP_Ppp;

  end;
  vDail.GetConnections;
  //创建拨号连接
  dwResult := RasSetEntryProperties(nil, PChar(CSAisinoModem), @rasEntry, Size, nil, 0);
  if dwResult <> 0 then    //创建拨号连接失败
  begin
    RasGetErrorString(dwResult, ErrorInfo, 100);
  end
end;