修改QQ庞物大小


unit PetMain;

inte易做图ce

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure QQPetSize(SPetSize:integer);
var
QQPet:Hwnd;
begin
QQPet:=FindWindow(#32770,QQPet客户端2.0);
if QQPet <> 0 then
    QQPet:=GetLastActivePopup(QQPet); //取回上一个活动的弹出式窗口的句柄
    if QQPet <> 0 then
       MoveWindow(QQPet,300, 300,SPetSize , SPetSize, true); //设置QQ宠物大小
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  QQPetSize(133); //设置QQ宠物大小 133为原始大小,可以修改更大的值,修改宠物大小.
end;

end.

补充：综合编程 , 安全编程 ,