Just nu i M3-nätverket
Jump to content

Behöver lite hjälp...


Mikey

Recommended Posts

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

Link to comment
Share on other sites

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

 

 

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...