example.dpr

来自「application with delphi」· DPR 代码 · 共 35 行

program Example;

uses windows,sysutils,qqkernel,qqvars;

var 
QQ1:TQQRuner;
hT,dwId:DWORD;

function LoopTh(Param:Pointer):DWORD; stdcall;
begin
While True do 
begin
if QQ1.Finfo.State=QsLoginSucess then
if QQ1.Finfo.Messages<>'' then
begin
MessageBox(0,PChar(IntToStr(QQ1.Finfo.MessageQQ)+': '+QQ1.Finfo.Messages),'',0);
QQ1.Finfo.Messages:='';
end else QQ1.QQKeepLive;
Sleep(1000);
end;
Result:=0;
end;

begin
QQ1:=TQQruner.Create;
QQ1.Finfo.Number:=StrToInt(ParamStr(1));
QQ1.Finfo.Password:=ParamStr(2);
QQ1.Finfo.AutoReply:='DEMO';
QQ1.Finfo.Hide:=False;
QQ1.Finfo.State:=QsNone;
QQ1.Finfo.Server:=QQServers[1];
QQ1.QQStart;
hT:=CreateThread(nil,0,@LoopTh,nil,0,dwId);
WaitForSingleObject(hT,INFINITE);
end.