procedure TForm1.Button1Click(Sender: TObject); var details: Cardinal; begin Memo1.Clear(); if InternetGetConnectedState(@details, 0) then begin Memo1.Lines.Add('There is an active Internet connection.'); end else begin Memo1.Lines.Add('There is no Internet connection.'); end; if (details and INTERNET_CONNECTION_MODEM) > 0 then begin Memo1.Lines.Add('Local system uses a modem to connect to the Internet.'); end; if (details and INTERNET_CONNECTION_LAN) > 0 then begin Memo1.Lines.Add('Local system uses a local area network to connect to the Internet.'); end; if (details and INTERNET_CONNECTION_PROXY) > 0 then begin Memo1.Lines.Add('Local system uses a proxy server to connect to the Internet.'); end; if (details and INTERNET_CONNECTION_OFFLINE) > 0 then begin Memo1.Lines.Add('Local system is in offline mode.'); end; if (details and INTERNET_CONNECTION_CONFIGURED) > 0 then begin Memo1.Lines.Add('Local system has a valid connection to the Internet.'); end; if (details and INTERNET_RAS_INSTALLED) > 0 then begin Memo1.Lines.Add('Local system has RAS installed.'); end; end;
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add admin@clevercomponents.com to your trusted senders list in your email software.