var_share.pas

一个QQ的界面源码

unit Var_Share;

interface

uses
   dxsbar,msg,ExtCtrls;

type
  TWndRec=record //自定义的类
//    Hnd:THandle;
    QQNum:string;
    PForm:TFrmMsg;
    MyTimer:TTimer;
  end;


var
   bLogined:Boolean;
   sUserName:string;
   sQQNumber:string;
   sPassword:string;
   g_sIP:string;
   iFaceID:integer;
   bIsReg:boolean;
   aAddFndLst:array[0..255,0..2] of string;
   ActiveItem:TdxSideBarItem;
   sSenderQQNum:string;//用于收到消息时SideBar头像的跳动
   bLeave:boolean;//是否设置为离开
   sLeaveMsg:string;//离开信息

   WndRecArr:array of TWndRec;
////////////////////////////////////////////////////
   bAutoShowMsg:boolean;//是否自动弹出消息框？
   bOnlineInfo:boolean;//上下线通知
   bAskClose:boolean;//取出时确认

implementation

end.