布谷鸟消息发送.doc

unit uMessage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Diaostr(B));
end;
IF C=2 then
begin
I:=H;
// showmessage('发送框'+inttostr(I));
C:=0;
end;
result:=true;
end;
function EnumQun(AhWnd:LongInt;
AlParam:lParam):boolean;stdcall;
var
WndClassName: array[0..254] of Char;
WndCaption: array[0..254] of Char;
begin
GetClassName(AhWnd,wndClassName,254);
GetWindowText(aHwnd,WndCaption,254);
Q:=findwindowex(ahWnd,0,'',nil);
// Q:=getwindow(ahWnd,gw_hwndnext);
IF IsWindow(Q) then
begin
Inc(Q1);
// showmessage('群组'+inttostr(Q));
end;
IF Q1=2 then
begin
Q2:=Q;
// showmessage('群组'+inttostr(Q2));
Q1:=0;
end;
result:=true;
end;
procedure (Sender: TObject);
var
hWnd:LongInt;
begin
J:=0;
C:=0;
hWnd:=FindWindow(nil,pchar());
if hWnd<>0 then
begin
EnumChildWindows(hWnd,***@EnumChildWndProc,0);
end
else
MessageBox(,'没找到该窗口句柄','提示',0);
end;
procedure (Sender: TObject);
begin
SendDBCSString(I,'如下由机器人定时发送:'+);
:=True;
end;
procedure (Sender: TObject);
begin
SendMessage(A,WM_LBUTTONDOWN , 0,0);
SendMessage(A,WM_LBUTT