본문 바로가기
Delphi Tip/인터넷

네트워크(인터넷) 연결 유무 (물리적)

by MonoSoft 2021. 11. 15.
728x90
반응형

네트워크(인터넷) 연결 유무 (물리적)

 

 

네트워크의 연결 유무 체크하는 함수 입니다.

좀 더 자세한 내용은 MSDN등을 참조하시면 나옵니다.

Windows Me 버전 이상, Explorer 5.0 이상이 있어야 한다는 군요...

또한 아시겠지만 sensapi.dll 도...

 

const

NETWORK_ALIVE_LAN = $1;

NETWORK_ALIVE_WAN = $2;

NETWORK_ALIVE_AOL = $4;

function IsNetworkAlive(var lpdwFlags: DWORD): HRESULT; stdcall; external 'SENSAPI.DLL';

.

.

.

.

var

  dRet : DWORD;

begin

  if IsNetworkAlive(dRet) = 0 then

  ShowMessage('연결된 네트워크가 없습니다.')

else

begin

  if (dRet and NETWORK_ALIVE_LAN) <> 0 then

    ShowMessage('LAN 연결');

  if (dRet and NETWORK_ALIVE_WAN) <> 0 then

    ShowMessage('WAN 연결');

  if (dRet and NETWORL_ALIVE_AOL) <> 0 then

    ShowMessage('AOL 네트워크 연결');

end;

 

 

 

728x90
반응형

댓글