2014年1月2日
Delphi直接让QT进入指定房间
摘要： WinExec('./QT/QT.exe qt://join/?roomid=3955&subroomid=287307288&ext=gid:536023504;et:1001', SW_SHOW);roomid房间号 subroomid子房间号搞定 回家吃饭。。。 阅读全文
posted @ 2014-01-02 18:35 luwenbin 阅读(733) 评论(0) 推荐(0) 编辑
通过Delphi获得qq安装路径
摘要： 1 procedure TForm1.Button2Click(Sender: TObject); 2 var 3 Reg:TRegistry; 4 Val:TStrings; 5 ii:System.Integer; 6 TmpStr:String; 7 begin 8 Reg:=TRegistry.Create(); 9 Val:=TStringList.Create();10 Try11 Reg.RootKey:=HKEY_CURRENT_USER;12 if Reg.OpenKey('Software\Tencent\PlatForm_Type_List\1\',Fal 阅读全文
posted @ 2014-01-02 18:31 luwenbin 阅读(304) 评论(0) 推荐(0) 编辑