segunda-feira, 21 de setembro de 2009

Tipo de conexão

Uses WinInet;


Function TipoConexao:boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then begin
showmessage('Conexão a Internet está Ativa');
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
showmessage('Conexão por modem');
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
showmessage('Conexião por lan');
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
showmessage('Conexião por proxy');
if (flags and INTERNET_CONNECTION_MODEM_BUSY) =INTERNET_CONNECTION_MODEM_BUSY then
showmessage('modem ocupado');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TipoConexao;
end;

Nenhum comentário:

Postar um comentário