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
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...
uses Wininet;
Jak by ktoś nie wiedział :P
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.
remo - jak zrobiłeś z dial.exe, żeby rozłączyć internet??
// taa, po trzech latach na pewno odpowie - Ł