求qq在线帮助[僵哥帮忙]

Question

软件界面有QQ在线交流功能,当有两个号在线时,提示选择哪个QQ,当没有QQ登录时,调出QQ登录窗体
最好有源码
嘿嘿
谢谢各位师父了

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure StartQQChat(sQQNo: String);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses
  ShellAPI;{$R *.dfm}procedure TForm1.StartQQChat(sQQNo: String);
var
  sURL: String;
begin
  sURL:= Format('tencent://message/?uin=%s&Site=im.qq.com&Menu=yes', [sQQNo]);  ShellExecute(Self.Handle, 'Open', PChar(sURL), 0, 0, SW_SHOW);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  StartQQChat(IntToStr(120038788));
end;end.

Answer 2

[sQQNo]);这是什么意思呀？
另外，好像不能选择号码吧？

Answer 3

那不就是format中的一个参数吗，你去看看format的帮助吧。你把我的那个号码修改成你想发送的号码不就的了吗？还是我干脆修改下上传上来的了（可能要等会才能看到）：
http://download.csdn.net/etomahawk

Answer 4

sURL:= Format('tencent://message/?uin=%s&Site=im.qq.com&Menu=yes', [sQQNo]);
看了一下fromat，这个函数，第二个参数是：是一个数组表达式，指定格式化的内容
没太理解？
这个网址，如果手动打入ｉｅ地址栏中的话为什么不行呢？tencent://message/?uin=%s&Site=im.qq.com&Menu=yes，120038788　显示无效号码？
不知sURL:= Format('tencent://message/?uin=%s&Site=im.qq.com&Menu=yes', [sQQNo]);到底是怎么实现的提交号码？
我shoemessage(surl),结果是：tencent://message/?uin=%s&Site=im.qq.com&Menu=yes

Answer 5

那地方的号码改成你自己的号码就行了tencent://实际就是一个自定义的一个协议，你安装QQ后，就自动在你的机器上注册了这个协议你在注册表里找下，就能找到这个说白了就像关联文件的打开方式差不多的