Componente Discagem Verificar se esta conectado.

Delphi

07/07/2003

Preciso de um componente que me informe se o computador esta conectado ou nao por um modem.


Grato.


Dicipulofer

Dicipulofer

Curtidas 0

Respostas

Carnette

Carnette

07/07/2003

Preciso de um componente que me informe se o computador esta conectado ou nao por um modem. Grato.


Tá...Tudo bem...Não é um componente...É apenas uma função..Mas, deve quebrar o teu galho...

Detectando o tipo de Conexão com a internet

uses Wininet

function ConnectionKind: Boolean;
var
flags: DWORD;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM
then
ShowMessage(´Modem´);
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
ShowMessage(´LAN´);
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY
then
ShowMessage(´Proxy´);
if (flags and INTERNET_CONNECTION_MODEM_BUSY) =
INTERNET_CONNECTION_MODEM_BUSY then
ShowMessage(´Modem Busy´);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ConnectionKind;
end;
[b:e3e96bf5aa][/b:e3e96bf5aa][b:e3e96bf5aa][/b:e3e96bf5aa]


GOSTEI 0
Dicipulofer

Dicipulofer

07/07/2003

Obrigado amigo


GOSTEI 0
POSTAR