Вот ответ AnatolyS на фоксклубе

local lnFlag

declare integer InternetAutodial in wininet.dll ;
integer dwFlag, integer hWnd
declare integer InternetGetConnectedState in wininet.dll ;
integer@ dwFlag, integer ReservedMustBe0

lnFlag = 0
if InternetGetConnectedState(@lnFlag, 0) == 0
if InternetAutodial(0, Thisform.Handle) # 0
=MessageBox("Соединение установлено!")
endif
endif