김영대님 홈페이지에 가 보시면 됩니다.  
http://www.howto.pe.kr/


lan 에 접속했는지 검사하기

<!--CodeS-->
const
MAX_NEIGHBORS = 20;
Function NetAvailable : Boolean;
Var
NetRes: Array [0..MAX_NEIGHBORS] Of TNetResource;
NNError,
hEnum,
EntryCount,
NetResLen  : DWORD;
loop1 : Integer;
Begin
hEnum := -1;
Result := FALSE;
Try
   NNError := WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, Nil, hEnum);
   If NNError = NO_ERROR Then
   Begin
     While NNError <> ERROR_NO_MORE_ITEMS Do
     Begin
       EntryCount := 1;
       NetResLen := SizeOf (NetRes);
       NNError := WNetEnumResource (hEnum, EntryCount, @NetRes, NetResLen);
       If (NNError = NO_ERROR) Then
       Begin
         For loop1 := 1 to EntryCount Do
         Begin
           If Pos ('Microsoft', NetRes[0].lpProvider) = 1 Then
           Begin
             Result := TRUE;
             Break
           End
         End
       End
       Else
       Begin
         Break
       End
     End;
     WNetCloseEnum (hEnum)
     // close enum
   End
Except
   On exception Do
     If DEBUG Then
     Begin
       ShowMessage ('Network Neighborhood Detection Failed.')
     End;
End
End;
<!--COdeE-->