Hanging up Modem

Hello,
I have coded a small program which will hang up the modem after a certain number of minutes, but theres one problem, i dont know how to hang up the modem! Its a dial up connection if you need to know.

Any help?

thanks
St3v13Asked:
Who is Participating?
 
intheConnect With a Mentor Commented:
hi,
you can get the latest Ras headers converted to delphi from:
ftp://delphi-jedi.org/api/RAS.zip

install then can do:

uses ras;

procedure TForm1.Button1Click(Sender: TObject);
var
  RasConn  : TRasConn;
  bsize    : DWORD;
  Count    :  DWORD;
begin
  RasConn.dwSize := SizeOf(TRasConn);
  bsize := SizeOf(RASConn);
  if RASEnumConnections(@RASConn, bsize, Count) = 0 then
     if Count > 0 then RASHangUp(RASConn.hRasConn);
end;

Regards Barry
0
 
St3v13Author Commented:
thanks barry! its work great!

Regards Stephen
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.