Ghwnd := FindWindow(nil,'11111.txt - 记事本');
PostMessage(Ghwnd,WM_KEYDOWN, VK_F3, 0);
在记事本'里输入不出来啊怎么后台使用按键啊好比模拟键盘c输出
要后台的
不要 记事本 窗口激活的那种!!!
PostMessage(Ghwnd,WM_KEYDOWN, VK_F3, 0);
在记事本'里输入不出来啊怎么后台使用按键啊好比模拟键盘c输出
要后台的
不要 记事本 窗口激活的那种!!!
PostMessage( Ghwnd ,WM_COMMAND, 22 , 0);
PostMessage(Ghwnd,WM_KEYDOWN, VK_F3, 0);
PostMessage(Ghwnd,WM_KEYUP, VK_F3, 0);
var
Ghwnd, hedit: THandle;
begin
Ghwnd := FindWindow(0,'11111.txt - 记事本');
hedit := FindWindowEx(Ghwnd, 0, 'Edit', 0);
PostMessage(hedit, WM_CHAR, Byte('c'), 0);
end;
如果是快捷键的话,僵哥的方法应该能行
var
s: String;
begin
s := 'some string';
PostMessage(Handle, WM_SETSTATUSBAR, Integer(s), 0);
end;