用Delhi怎么实现Internet共享设置？

[lcddda]

如题 就是在拨号属性里有个Internet有个共享连接设置，怎样通过delphi去设置它呢？

[hjkto]

up

[iamduo]

学习了。

[大肚肥肥]

RasSetEntryPropertiesA 这个函数

type
RASENTRY = record //申明调用RAS函数所需结构体
dwSize: integer;
dwfOptions: integer;
dwCountryID: integer;
dwCountryCode: integer;
szAreaCode: array[0..10] of byte;
szLocalPhoneNumber: array[0..128] of byte;
dwAlternateOffset: integer;
ipaddr: RASIPADDR;
ipaddrDns: RASIPADDR;
ipaddrDnsAlt: RASIPADDR;
ipaddrWins: RASIPADDR;
ipaddrWinsAlt: RASIPADDR;
dwFrameSize: integer;
dwfNetProtocols: integer;
dwFramingProtocol: integer;
szScript: array[0..259] of byte;
szAutodialDll: array[0..259] of byte;
szAutodialFunc: array[0..259] of byte;
szDeviceType: array[0..16] of char;
szDeviceName: array[0..128] of char;
szX25PadType: array[0..32] of byte;
szX25Address: array[0..200] of byte;
szX25Facilities: array[0..200] of byte;
szX25UserData: array[0..200] of byte;
dwChannels: integer;
dwReserved1: integer;
dwReserved2: integer;
dwSubEntries: integer;
dwDialMode: integer;
dwDialExtraPercent: integer;
dwDialExtraSampleSeconds: integer;
dwHangUpExtraPercent: integer;
dwHangUpExtraSampleSeconds: integer;
dwIdleDisconnectSeconds: integer;
dwType: integer;
dwEncryptionType: integer;
dwCustomAuthKey: integer;
guidId: GUID;
szCustomDialDll: array[0..259] of byte;
dwVpnStrategy: integer;
dwfOptions2: integer;
dwfOptions3: integer;
szDnsSuffix: array[0..255] of byte;
dwTcpWindowSize: integer;
szPrerequisitePbk: array[0..259] of byte;
szPrerequisiteEntry: array[0..256] of byte;
dwRedialCount: integer;
dwRedialPause: integer;
end;


var
re: RASENTRY;

begin
RasSetEntryPropertiesA(nil, PChar(拨号名称), @re, sizeof(RASENTRY), nil, 0);
end;

你去MSDN 看一下里面的RASENTRY参数设置就知道怎么设置了.

另外再去找一个Ras.pas 单元文件，这里代码太长，贴不了，这个单元很容易找到的

[大肚肥肥]

function RasSetEntryPropertiesA(lpszPhonebook, szEntry: PAnsiChar; lpbEntry: Pointer;
dwEntrySize: Longint; lpbDeviceInfo: Pointer;
dwDeviceInfoSize: Longint): Longint; stdcall;

function RasSetEntryPropertiesA ; external rasapi32 name 'RasSetEntryPropertiesA';