Behöver lite hjälp...

[Mikey]

Denna funktion ska känna av om man är ansluten till internet eller inte...

 

USES

WinInet;

..

..

 

function InternetConnected: Boolean;

CONST

INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet.

INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet.

INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to connect to the Internet.

INTERNET_CONNECTION_MODEM_BUSY = 8; // local system's modem is busy with a non-Internet connection.

VAR

dwConnectionTypes : DWORD;

BEGIN

dwConnectionTypes :=

INTERNET_CONNECTION_MODEM +

INTERNET_CONNECTION_LAN +

INTERNET_CONNECTION_PROXY;

Result := InternetGetConnectedState(@dwConnectionTypes,0);

END;

 

men hur ska jag kalla på funktionen?

 

/Mikey

[B Wisser]

Inte för att jag förstår vad som finns i funktionen men jag kan inte se annat än att du ska behandla den likadant som andra booleanska funktioner.

 

t.ex.

if InternetConnected then