和 win98 下没什么区别吧,例如下面的代码在 Win98 和 win2k 上都可以:
function Dial(EntryName, UserName, Password, Domain : String) : Boolean;
var
rdParams : TRASDIALPARAMS;
dwRet : DWORD;
begin
hRasConn := GetActiveConnHandle(EntryName);
if hRasConn <> 0 then
begin
Result := False;
Exit;
end;
// setup RAS Dial Parameters
FillChar(rdParams, SizeOf(rdParams), 0);
rdParams.dwSize := SizeOf(TRASDIALPARAMS);
strCopy(rdParams.szUserName, PChar(UserName));
strCopy(rdParams.szPassword, PChar(Password));
strCopy(rdParams.szEntryName, PChar(EntryName));
StrCopy(rdParams.szDomain, PChar(Domain));
rdParams.szPhoneNumber[0] := #0;
rdParams.szCallbackNumber[0] := '*';
//rdParams.szDomain := '*';
hRasConn := 0;;
dwRet := RasDialA(nil, nil, @rdParams, 0, @RasDialFunc, @hRasConn);
if dwRet <> 0 then Disconnected;
Result := dwRet = 0;
end;