Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Разорвать соединение   Найти похожие ветки 

← →
KoLoB   (2003-12-20 20:01) [0]

Как разорвать Dial-up соединение установленное любой программой (не стандартной виндовсой звонилкой). В общем как Outlook Express

---

← →
Бином Ньютоныч   (2003-12-21 09:34) [1]

procedure CloseRasConnections;
var
 Connections: array[0..15] of TRasConn;
 Size, Count, Res, Res2, n: integer;
 Status: TRasConnStatus;
begin
 Connections[0].dwSize:=SizeOf(TRasConn);
 Size:=SizeOf(Connections);
 Res:=RasEnumConnections(@Connections, Size, Count);
 if (Res = 0) or (Res = ERROR_BUFFER_TOO_SMALL) then
 begin
   for n:=0 to Pred(Count) do
   begin
     Res2:=RasHangUp(Connections[n].hrasconn);
     Status.dwSize:=SizeOf(Status);
     if Res2 = 0 then
       while
         RasGetConnectStatus(Connections[n].hrasconn, Status) <> ERROR_INVALID_HANDLE
       do
         Sleep(0)
     else begin
       SetLastError(Res2);
       RaiseLastOSError;
     end;
   end;
   if Res = ERROR_BUFFER_TOO_SMALL then CloseRasConnections;
 end else
 begin
   SetLastError(Res);
   RaiseLastOSError;
 end;
end;

---

← →
kor@l ©   (2004-01-24 19:54) [2]

Гляди сюда:
cmd := "open";
 fil := "rasdial.exe";
 par := PChar("Имя соед." + " /DISCONNECT");
 dir := "C:";
 ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c