проблемы с RAS

← →
Alexey (2004-06-13 21:41) [0]

В своей проге для определения соединения с Инетом использую следующую процедуру
function status:boolean;
var TpRasCon:array[0..255] of tRasConna;
lg:Longint;
lpcon: Longint;
RetVal ,i: Longint;
Tstatus : tRasConnStatusA;
begin lpcon:= 0;
FillChar(tprascon, SizeOf(Trasconna), 0);
TpRasCon[0].dwSize := sizeof(tRasConnA);
lg:= 255 * TpRasCon[0].dwSize;
RetVal:= RasEnumConnections(@TpRasCon[0], lg, lpcon);
Tstatus.dwSize:= sizeof(tRasConnStatusA);
RetVal:= RasGetConnectStatus(TpRasCon[0].hRasConn, Tstatus);
if lpcon>0 then ;
If Tstatus.RasConnState = $2000 Then begin
result:= True; end
Else result:= false;
end;

и если была хотя бы попытка выйти в Инет(набор номера) или в Инет я всетаки вышел, то когда я хочу перезагрузить или выключить комп ничего не просходит (не перегружается)(моя прога постоянно сидит в трее), если же я свою прогу закрываю то все в порядке.
Уважаемые мастера подскажите.

← →
Alexey (2004-06-15 19:26) [1]

Подскажите кто-нибудь в каком направлении искать ошибку. Пожалуста :)

← →
BlackBaracuda © (2004-06-26 19:40) [2]

Как часто ты вызываешь эту функцию?

Ошибка не здесь...

проблемы с RAS Найти похожие ветки