modem, detectando se esta em uso.

Delphi

06/05/2004

o pessoal eu procurei muito aqui no forum sobre modem mas nao achei oque eu queria, e talvez , alguem de vcs pode me ajudar.

Eu gostaria de saber como eu poderia fazer para que se o modem estiver em uso eu retorno com um Showmessage(´Em uso´) se nao tiver em uso Showmessage(´OK´) exemplo.

se possivel me ajudarem ficarei agradecido!!!


Gustavo_sanchez

Gustavo_sanchez

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

06/05/2004

Tente assim:

function Modem: Boolean;
var flags: DWORD;
begin
   Result := InternetGetConnectedState(@flags, 0);
   if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
      ShowMessage(´Em uso´)
   else
      ShowMessage(´OK´);
end;



GOSTEI 0
Gustavo_sanchez

Gustavo_sanchez

06/05/2004

teve um problema ele nao reconheceu os comandos
InternetGetConnectedState
INTERNET_CONNECTION_MODEM

meu delphi ´e 5.0 e componentes padrao.


GOSTEI 0
Gustavo_sanchez

Gustavo_sanchez

06/05/2004

help


GOSTEI 0
Fabio.hc

Fabio.hc

06/05/2004

Declare a unit.

uses Wininet


GOSTEI 0
POSTAR