amex88的专栏

可输可选的DropDownList 网上的帮助 写成了例子

获取硬盘序列号的源码，直接可使用 Edit1.Text := strpas(GetIdeSerialNumber);

实现PING功能 With ICMP.ReplyStatus do begin Msg:='Reply from'+' '+edthost.Text; Msg:=Msg+' '+'bytes='+IntToStr(BytesReceived); //返回字节数 Msg:=Msg+' '+'TTL='+IntToStr(TimeToLive); //返回生存时间 Tm:=MsRoundTripTime; //返回执行时间 if Tm<1 then Tm:=1; Msg:=Msg+' '+'time='+IntToStr(Tm)+'ms'; lstlnfo.Items.Add(Msg);//保存信息 if (BytesReceived=0) or (TimeToLive=0) then begin //无数据返回 b:=b+1; //记录掉包数量 lstlnfo.ItemIndex:=lstlnfo.Items.Count-1; end; //if lstlnfo.Count>100 then lstlnfo.Clear; if i mod 100=0 then stat1.SimpleText:='Lost:'+IntToStr(b)+ '/'+IntToStr(i)+'='+copy(FloatToStr(b/i*1000),1,4)+'‰'; //每Ping到100次显示一次掉包情况 end;

没事写的一个通讯录管理系统，带照片的，功能还不错的

串口通讯实例教程。。。。。