Как определить, что Dial-up соединение уже установлено?

← →
Puzzle (2003-04-02 12:32) [0]

Мастера, подскажите пожалуйста, как при старте программы определить, что Dial-up соединение уже установлено?
Использую компонент TMagRasCon.

← →
wal © (2003-04-02 12:57) [1]

RasEnumConnections

← →
Puzzle (2003-04-02 13:38) [2]

> wal, я в общем-то так и думал, но как пользоваться этой функцией не подскажешь? Если не трудно, напиши небольшой примерчик.

← →
wal © (2003-04-02 23:26) [3]

Дык ...
В хелпе же все русским по белому написано (правда по аглицки, но это мелочи).
// Создаешь массив var a:array[0..0]of RASCONN; //[0..0] - сугубо для примера // Пару даблвордов i,j:DWORD; begin i:=SizeOf(a); a[0].dwSize:=SizeOf(RASCONN); if (RasEnumConnections(@a,i,j)=0)and(j>0) then begin // Вот тут-то мы и выяснили, что у нас существует соединение end; end;

Это конечно бред, но можно проверить соединение с инетом, те
открыть какай-нибудь URL

Вот кусок из работающего проекта.

function TForm1.CheckConnection(EntryName: string): boolean; var ConnectionList : array [0..7] of TRasConn; CLSize, i, CLCount : integer; Res : boolean; s : string; RCS : TRasConnStatus; begin ConnectionList[0].dwSize := SizeOf(TRasConn); CLSize := SizeOf(TRasConn) * 8; if RasEnumConnections(@ConnectionList[0], CLSize, CLCount) = 0 then begin res := false; for i := 0 to CLCount - 1 do begin s := ConnectionList[i].szEntryName; if UpperCase(s) = UpperCase(EntryName) then begin ZeroMemory(@RCS, SizeOf(RCS)); RCS.dwSize := SizeOf(RCS); RasGetConnectStatus(ConnectionList[i].hrasconn, RCS); if RCS.rasconnstate = RASCS_CONNECTED then res := true; end; end; Result := res; end else Result := false; end;

Как определить, что Dial-up соединение уже установлено? Найти похожие ветки