유승보 wrote:

> 한가지 더 질문하겠습니다.

>

> 현재 통신을 하고 있는지 알 수 있는 방법이 있나요.

> 그러니까 통신이 시작되는 것과 끝나는 것을 알 수 있는 방법이 있는지 궁금합니다.

>

> 예를 들어 전화요금계산 프로그램에서 사용하는 방법같은 것을 알고 있으면 가르쳐 주시면 감사하겠습니다.

>

> 그럼

>



안녕하셔요! 조규춘이라고 합지요!



지금부터 아래에 있는 코드는 인터넷에 연결이 되어 있는지를 나타내는 소스여요!

이것을 잘 이용하면(timer 컴포넌트를 써서 계속 확인해도 돼나?) 지금 인터넷에 연결이 되어 있는지 알수 있것지요! 그런데 해보면서 느낀게 모뎀만 되는거 같아요!

왜 그런지.... 흑흑흑



unit IE_Connected;



interface



uses

Windows, Messages, SysUtils, Controls, Dialogs, StdCtrls, Registry;



function HasWebConnection: boolean ;



implementation



function HasWebConnection: boolean ;

const

cMsg = '인터넷에 연결이 안되었네. 쯧쯧' ;

sSubKey = 'SystemCurrentControlSetServicesRemoteAccess' ;

sKeyValue = 'Remote Connection' ;

var

pKey: hKey ;

lpData, DataSize: Longint ;

begin

lpData := $0 ;

if RegOpenKeyEx(HKEY_LOCAL_MACHINE,sSubKey,0,KEY_QUERY_VALUE,pKey) = 0

then begin

try

DataSize := Sizeof(lpData);

if RegQueryValueEx(pKey,sKeyValue,nil,nil,@lpData,@DataSize) <> 0

then

raise Exception.Create(cMsg + #13 + SysErrorMessage(GetLastError)) ;

finally

RegCloseKey(pKey) ;

end;

if lpData > 0 then

Result := True

else

Result := False ;

end else

raise Exception.Create(cMsg + #13 + SysErrorMessage(GetLastError)) ;

end ;

end.





그럼 이만 행복하셔요!

- 추니가