delphi写QQ消息群发（模拟按键精灵）
本文只供学习研究，不能用于非法用途，转载请保留本文链接。
本文地址：http://blog.csdn.net/sushengmiyan/article/details/8774780
使用函数：EnumWindows,EnumWindowsProc
源代码奉上：
unit QMsgMainFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Clipbrd;type TForm1 = class(TForm) edtMsg: TEdit; lblTip: TLabel; btnTry: TButton; lblMsgWindow: TLabel; lblMsgContextWindow: TLabel; procedure btnTryClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;implementation{$R *.dfm}procedure TForm1.btnTryClick(Sender: TObject);begin if Trim(edtMsg.Text) = '' then begin ShowMessage('请输入要发送的消息，消息不能为空'); end else begin EnumWindows(@EnumWindowsProc ,0); end;end;function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;var WindowText : string ; WindowClass : string ; SendHwnd : DWORD ; tdiahandle : THandle ; tedithandle : THandle ; tduihuakhandle: THandle ; c: Cardinal; ProcessHandle:LongWord; begin if ( IsWindowVisible(hwnd) or IsIconic(hwnd) ) and ( (GetWindowLong(hwnd, GWL_HWNDPARENT) = 0) or (GetWindowLong(hwnd, GWL_HWNDPARENT) = Longint(GetDesktopWindow)) ) and ( GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin SetLength(WindowText, GetWindowTextLength(hwnd)+2); Getwindowtext(hwnd, Pchar(WindowText), GetWindowTextLength(hwnd)+2); WindowText := string(Pchar(WindowText)); SetLength(WindowClass, 512); GetClassName(hwnd, Pchar(WindowClass), 512); WindowClass := string(Pchar(WindowClass) ); if SameStr(WindowClass , 'TXGuiFoundation') then begin BringWindowToTop(hwnd); Form1.lblMsgContextWindow.Caption := WindowText; if Clipboard.HasFormat(CF_TEXT) then Clipboard.Clear; Form1.edtMsg.SelectAll; Form1.edtMsg.CopyToClipboard; keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0); keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0),0 ,0); end; end; Result := True; end;end.我们在网络中经常会有这样的需求，有一篇推销内容要发送到QQ群或者QQ好友，手动一个一个发实在是麻烦的很，那么就需要有一套好的工具来辅助我们，所以就写了这么一个东东。大家多多支持。