liuxianjin

导航

2007年10月14日

检测协议是否安装

摘要： function IsIPInstalled : boolean; var ppe : PProtoEnt; WSData : TWSAData; begin Result:=true; if WSAStartup(MakeWord(1,1),WSData)=0 then begin ppe:=GetProtoByName('IP'); if ppe=nil... 阅读全文

posted @ 2007-10-14 00:26 liuxianjinlxj 阅读(172) 评论(2) 推荐(0)

2007年10月11日

Delphi中关于TApplication类的详解

摘要： delphi中的Tapplication类详解 阅读全文

posted @ 2007-10-11 15:53 liuxianjinlxj 阅读(328) 评论(0) 推荐(0)

2007年10月10日

怎样检测计算机联网没有?

摘要： uses wininet; var Types : Integer; begin Types := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if InternetGetConnectedState(@types... 阅读全文

posted @ 2007-10-10 20:52 liuxianjinlxj 阅读(868) 评论(2) 推荐(0)