Rozłaczenie Dial-Up

0

Witam !

Nie wiem dlaczego podany poniżej kod nie rozłacza mi połaczenia Neostrady.

// automatyczne rozłączenie
procedure TForm1.BtnRozlaczClick(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
// połaczony
InternetAutodialHangup(0);
end;

Środowisko:
Delphi 5 Std+Win XP

Pozdrawiam
Remek

0

Zrywa połączenia które zostały wcześniej zainicjalizowane przez InternetDial.

function InternetHangUp(
dwConnection: DWORD;
dwReserved: DWORD): DWORD;

Parametry:

dwConnection
    Connection id zwracane przez InternetDial

dwReserved
   Wynosi 0

Returns: ERROR_SUCCESS

Ta funkcja rozłącza połączenia nawet jeżeli inna aplikacja go używa...

0
uses Wininet;

Jak by ktoś nie wiedział :P

0

No cóż. Jakoś nie poszło jak chciałem. Ale wynalazłem sposób z wywołaniem dial.exe z systemu i to działa całekiem dobrze.
Ale popróbuję jeszcze z InternetDial - nie wiem dlaczego połaczenie się nie pojawia. Z wykorzystaniem dial.exe mam połączenie (pojawiają się w trayu "monitorki") i potem zrywam połączenie bez problemów.

Pozdrawiam
R.

0

remo - jak zrobiłeś z dial.exe, żeby rozłączyć internet??

// taa, po trzech latach na pewno odpowie - Ł

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0