用Delphi开发来电显示管理软件

1、建立如下Form：

其中使用了我自己开发的控件TeleComport，可到 http://www.kosen.com.cn/news/showdld.asp?id=19 下载。 

2、在各按钮的Click事件中，分别写入如下代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  //端口可直接设置，例如端口为USB，Port:='USB'
  if TeleComport1.SetupPort then
    Memo1.Lines.Add('Port='+TeleComport1.Port);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TeleComport1.Open;
  if TeleComport1.JDUsbdevCount>0 then
    Memo1.Lines.Add(IntToStr(TeleComport1.JDUsbdevCount)+' USB设备');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  TeleComport1.Close;
end;

3、在TeleComport1的Open、Close、Read事件中，分别写入如下代码：

procedure TForm1.TeleComport1Open(Sender: TObject);
begin
  if TeleComport1.JDConnected then begin
    Memo1.Lines.Add('Connected '+IntToStr(TeleComport1.JDUsbdevCount));
    //打开端口时读取来电管理器内缓存的号码
    TeleComport1.ReadAllWhenOpen;
  end;
end;

procedure TForm1.TeleComport1Close(Sender: TObject);
begin
  if not TeleComport1.JDConnected then
    Memo1.Lines.Add('not Connected')
  else
    Memo1.Lines.Add('Connected '+IntToStr(TeleComport1.JDUsbdevCount));
end;

//有来电时激活此事件
//s为来电号码，t为来电时间，devid为USB的设备号
procedure TForm1.TeleComport1Read(Sender: TObject; s: String; t: TDateTime;
  devid: String);
begin
  Memo1.Lines.Add(s+FormatDateTime(' yyyy-mm-dd hh:nn:ss', t));
end;

就这么简单。
当然需要使用高深公司的“记得”来电显示管理器，详情请参考：http://www.kosen.com.cn/jdmain.htm