Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
11-1058185200
Sagrer
2003-07-14 16:20
2004.04.04
Проблема с размером окна в XP.


7-1074007088
_наблюдатель_
2004-01-13 18:18
2004.04.04
crHandPoint


8-1070016216
X-Disa
2003-11-28 13:43
2004.04.04
Jpeg


3-1078933231
VitGun
2004-03-10 18:40
2004.04.04
Пара вопросов про Access...


14-1078661915
dzmitry[li]
2004-03-07 15:18
2004.04.04
Delphi8