1,183
社区成员
发帖
与我相关
我的任务
分享
var
Ghwnd, hedit: THandle;
begin
Ghwnd := FindWindow(0,'11111.txt - 记事本');
hedit := FindWindowEx(Ghwnd, 0, 'Edit', 0);
PostMessage(hedit, WM_CHAR, Byte('c'), 0);
end;
Ghwnd := FindWindow(nil,'11111.txt - 记事本');
PostMessage(Ghwnd,WM_KEYDOWN, VK_F3, 0);
PostMessage(Ghwnd,WM_KEYUP, VK_F3, 0);