如何给不是激活窗口发送字符 用Sendmessage 解决可以加分

[xflcx]

我想给其他的程序发送 键盘鼠标消息 完成自动输入 但是不想让被控制的程序为当前活动窗体

[xflcx]

来人阿

[Spectrum]

没有用过，帮不了你

[shadowfish]

GZ

帮你up……

[wyhhc]

我的程序：
Var
ParentHd,Hd:LongInt;
begin
Hd:=LongInt(StrToInt(TListView(PopupMenu1.PopupComponent).Selected.Caption));
ParentHd:=LongInt(StrToInt(ListView2.Hint));
SetForegroundWindow(ParentHd);
PostMessage(Hd,WM_LBUTTONDOWN,0,0);
PostMessage(Hd,WM_LBUTTONUP,0,0);
SetForegroundWindow(Handle);
end;

[wyhhc]

Hd是你要控制的控件句柄
ParentHd是你要控制的窗体句柄
Handle是你当前的句柄

[naughtyboy]

SendMessage(h,wm_char,ord('a'),0);
PostMessage(h,wm_char,ord('a'),0);

向句柄为h的窗口发送字符'a'

[WorldCreater]

“我想给其他的程序发送 键盘鼠标消息 完成自动输入 但是不想让被控制的程序为当前活动窗体”
这些都不难。只要你找到你要发送消息的目标窗体的句柄就成

[atuchina]

发送一些数据，不是字符如下，要多少数据（字符）就可以多少
（我也是刚做完一个发送东东的PRG）
以下在工程文件中
var
s : pchar;
buf:tagCOPYDATASTRUCT;
hnd:HWND;
begin
Application.Initialize;
application.Title := 'test';
try
hnd := CreateMutex(nil, True, 'UnifaceTools');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
GetMem(s,100);
buf.lpData :=s;
buf.cbData:=100;
buf.dwData :=100;
strpcopy(s, ParamStr(1));
SendMessage(findwindow(nil,'Uniface Porgram Tools'), $004A, 0, integer(@buf));
freemem(s);
end
else
begin
Application.Title := 'UnifaceTools';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
finally
if hnd <> 0 then ReleaseMutex(hnd);
end;


接收部分：
procedure SetMyWindow(var msg : TMessage); message WM_COPYDATA;


。。。。。
procedure TMainForm.SetMyWindow(var msg: TMessage);
var
P:^tagCOPYDATASTRUCT;
FileName :String;
begin
p:=Pointer(Msg.lParam);
//ShowMessage(strpas(p.lpData));
FileName := strpas(p.lpData);
end;

[wjlsmail]

只要去的目标窗体句柄就可以

H := FindWindow(PChar('ClassName'),PChar('Text')) ;

SendMessage(h,WM_KeyDown,0,VK_F1) ; // 目标窗体要处理 KeyDown 事件

[xflcx]

可能是我没有说清楚 被控制的窗体是未知的 不是特定的 不是自己篇写的
要让他响应键盘事件 但是不能把他激活为当前窗体 它的窗体句柄是可以得到的

[coolkenmester]

hwnd := FindWindow(类名,标题);
SendMessage(hwnd,WM_KeyDown,0,0);