断开拨号连接

断开拨号连接 function DisconnectActiveConnection: Boolean;
var
RasEntry: TRasEntry;
EntryInfoSize: Cardinal;
DeviceInfoSize: Cardinal;
RasGetEntryPropertiesResult: Integer;
begin
ZeroMemory(@RasEntry, SizeOf(TRasEntry));
RasEntry.dwSize := SizeOf(TRasEntry);
EntryInfoSize := SizeOf(TRasEntry);
RasGetEntryPropertiesResult := RasGetEntryProperties(nil,
MyActiveEntryName), @RasEntry, EntryInfoSize, nil, DeviceInfoSize);
if (RasGetEntryPropertiesResult = 0) then
Result := DisconnectDevice(StrPas(RasEntry.szDeviceName));
end;