Witam. Mam problem. Znalazłem na 4programmers gotowce do łączenia i rozłączania modemu. Łączenie niby trudniejsze, a działa. Rozłączenie niestety nie działa.... ;/
Łączenie:
// automatyczne nawiązanie połączenia
procedure Polacz;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
//nie połaczony
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
// błąd
end;
end;
Rozłączenie:
// automatyczne rozłączenie
procedure Rozlacz;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
// połaczony
InternetAutodialHangup(0);
end;
Proszę o pomoc. Z góry dziękuje!