您现在的位置:首页 >> API >> API >> 内容

Delphi调用Skype4COM接口实现Skype应用

时间:2011/9/3 15:43:24 点击:

  核心提示:代码中需要引用SKYPE4COMLib_TLB.pas单元,运行前需要注册COM组件Skype4COM.dll代码示例,列举机器上活动的Skype列表:procedure TForm1.Button1...

代码中需要引用SKYPE4COMLib_TLB.pas单元,运行前需要注册COM组件Skype4COM.dll

代码示例,列举机器上活动的Skype列表:

procedure TForm1.Button1Click(Sender: TObject);
var
  Skype:TSkype;
  i:integer;
begin
  try
    ActiveX.CoInitialize(nil);
    Skype:=SKYPE4COMLib_TLB.TSkype.Create(nil);
    try
      Skype.Attach(6,True);
      ListView1.Items.Add.Caption:='Version';
      ListView1.Items.Item[0].SubItems.Add(Skype.Version);
      ListView1.Items.Add.Caption:='Name';
      ListView1.Items.Item[1].SubItems.Add(Skype.CurrentUserHandle);
      ListView1.Items.Add.Caption:='Location';
      ListView1.Items.Item[2].SubItems.Add(Skype.PredictiveDialerCountry);
    finally
      FreeAndNil(Skype);
    end;
  except on e:Exception do
    ShowMessage(e.Message);
  end;
end;

部分代码已经打包下载



迅雷专用高速下载

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号