Форум: "Сети";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизРазорвать соединение Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c