使用Combobox消息来任意改变QQ的性别

时间:2010-01-30 12:19:02  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:_GETDROPPEDSTATECB_GETDROPPEDWIDTHCB_GETEDITSELCB_GETEXTENDEDUICB_GETHORIZONTALEXTENTCB_GETITEMDATACB_GETITEMHEIGHTCB_GETLBTEXTCB_GETLBTEXTLENCB_GETLOCALECB_GETTOPINDEXCB_INITSTORAGECB_INSERTSTRINGCB_LIMITTEXTCB_RESETCONTENTCB_SELECTSTRINGCB_SETCURSELCB_SETD...
  正文:Combobox的常用消息及使用,可用它来任意改变QQ的性别
CB的消息全在这了
CB_ADDSTRING
CB_DELETESTRING
CB_DIR
CB_FINDSTRING
CB_FINDSTRINGEXACT
CB_GETCOUNT
CB_GETCURSEL
CB_GETDROPPEDCONTROLRECT
CB_GETDROPPEDSTATE
CB_GETDROPPEDWIDTH
CB_GETEDITSEL
CB_GETEXTENDEDUI
CB_GETHORIZONTALEXTENT
CB_GETITEMDATA
CB_GETITEMHEIGHT
CB_GETLBTEXT
CB_GETLBTEXTLEN
CB_GETLOCALE
CB_GETTOPINDEX
CB_INITSTORAGE
CB_INSERTSTRING
CB_LIMITTEXT
CB_RESETCONTENT
CB_SELECTSTRING
CB_SETCURSEL
CB_SETDROPPEDWIDTH
CB_SETEDITSEL
CB_SETEXTENDEDUI
CB_SETHORIZONTALEXTENT
CB_SETITEMDATA
CB_SETITEMHEIGHT
CB_SETLOCALE
CB_SETTOPINDEX
CB_SHOWDROPDOWN
CBN_CLOSEUP
CBN_DBLCLK
CBN_DROPDOWN
CBN_EDITCHANGE
CBN_EDITUPDATE
CBN_ERRSPACE
CBN_KILLFOCUS
CBN_SELCHANGE
CBN_SELENDCANCEL
CBN_SELENDOK
CBN_SETFOCUS
WM_COMPAREITEM
WM_DRAWITEM
WM_MEASUREITEM


使用消息打开comboBox的下拉列表


SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, Longint(True), 0);


改变Combobox下拉列表的宽度

向Combobox发送一个消息CB_SETDROPPEDWIDTH

comboBox1.Perform(CB_SETDROPPEDWIDTH, 100, 0);
//100为Combobox下拉的宽度.


如何任意改变QQ的性别


1。首先取得QQ个人设置资料中性别后面Combobox的句柄,可以使用函数
GetQQWnd('ComboBox',0)获得,前提要保证进入“QQ菜单 -> 个人设置”菜单。


function TForm1.GetQQWnd(ControlName:string;index:integer): HWND;
var
i,j:integer;
h,m,c: HWnd;
begin
  j:=0;
  for i := 0 to 30 do
  begin
    h := findwindowex(0, h, '#32770', nil);
    m := findwindowEX(h, 0, '#32770', nil);
    c := findwindowex(m, 0, PChar(ControlName), nil);
    if c <> 0 then
    begin
      if index=j then
      begin
        Result := c;
        exit;
      end;
      inc(j);
    end;
  end;
  result:=0;    
end;


2。调用cb的CB_INSERTSTRING消息将当前要添加的字符串插入到Combobox的下拉列表中。

3。重新修改你的QQ性别,点应用即可,原理同样可修改QQ的其他Combobox下
拉选项。

主要部分代码

"使用Combobox消息来任意改变QQ的性别"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12663.html


关键字:

关于《使用Combobox消息来任意改变QQ的性别》文章的评论


if GetQQWnd('ComboBox',0)=0 then
begin
  Application.MessageBox(
  '第一步:进入“QQ菜单 -> 个人设置”'+#10#13+
  '第二步:执行“添加”功能既可'+#10#13+
  '第三步:重新修改你的QQ性别','使用帮助',
  MB_ICONINFORMATION+MB_OK);
  exit;
end;
s := edit1.Text;
SendMessage(GetQQWnd('ComboBox',0), CB_DELETESTRING, 0,LPARAM(pchar('男')));
SendMessage(GetQQWnd('ComboBox',0), CB_INSERTSTRING, 0,LPARAM(pchar(s)));
SendMessage(GetQQWnd('ComboBox',0), CB_SELECTSTRING, 0,LPARAM(pchar(s)));
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td