QQ性别修改器（API操作）
{
QQ性别修改器 By 暴风雪 2006/7/3
代码很简单,十几行代码就搞定了。
使用前请先打开个人设置,本程
序只在QQ2006 BetaSP1 下测试!
其它版本没试过.
}
unit QQsexMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btnAdd: TButton;
txtsex: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnAddClick(Sender: TObject);
var
S: String;
QQHwnd:HWND;
CobHwnd:HWND;
begin
QQHwnd:=FindWindow(nil,'QQ2006设置'); //取QQ设置窗口句柄(根据QQ版本不同可以修改这里)
if QQHwnd <> 0 then
CobHwnd:=FindWindowEx(QQHWND,0,'#32770',nil); //从里开始找QQ性别列表框的句柄
if CobHwnd <> 0 then
CobHwnd:=FindWindowEx(CobHwnd,0,'#32770',nil);
if CobHwnd <> 0 then
CobHwnd:=FindWindowEx(CobHwnd,0,'ComboBox',nil);
if CobHwnd <> 0 then
begin
S:=txtsex.Text; //添加内容到QQ性别列表框
SendMessage(CobHwnd, CB_ADDSTRING, 0, Longint(PChar(S))); //发送消息的这个是关键，CB_ADDSTRING。
Messagebox(0,pchar('已经将 '+txtsex.Text+' 添加到QQ性别列表框中!'),pchar('提示'),0+64);
end;
if CobHwnd = 0 then
Messagebox(0,pchar('无法找到QQ性别列表框,请先打开个人设置!'),pchar('提示'),0+64);
end;
end.
