Kako detektovati Internet konekciju

Kako aplikacija, koju sam napravio, da bude u mogućnosti da detektuje aktivnu Internet konekciju? Napominjem da sam u ovom poslu samouk i nov, te molim sve zainteresovane za razumevanje pri davanju odgovora...

Potpis

When the program is being tested, it is too late to make design changes.

Evo ovako (provera da li je postoji konekcija i automatsko zvanje), na primer

uses ... ,WinInet, ...


var
dwConnectionTypes: DWORD;

dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then begin
// not connected
if MessageDlg('Do you want to connect to internet now?',mtWarning,[mbYes,mbNo],0)=mrYes then begin
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then begin
ShowMessage('Error: Auto dial failed!');
end
else
// autoconnect to internet
end;
end