Главная страница
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.022 c
6-1075105145
Arsen
2004-01-26 11:19
2004.04.04
Proxy в WebBrowser


1-1079156477
Kair
2004-03-13 08:41
2004.04.04
Splash screen


1-1079424777
ikivio
2004-03-16 11:12
2004.04.04
SysErrorMessage(GetLastError) - range Check Error


1-1079076462
Dysan
2004-03-12 10:27
2004.04.04
как ловить ошибки в COM-е


7-1074178573
проблематик
2004-01-15 17:56
2004.04.04
ListView