Delphi模拟键/鼠标到特定窗口

Question

我想知道如何使用键击/鼠标点击任何能够提供帮助的特定窗口？

Answer 1

如果操作系统是Windows，如何在操作系统中搜索“窗口”：

function FindWindowExtd(partialTitle: string): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);//search after the partial name
    sTitleTemp := cTitletemp;
    sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
    partialTitle := UpperCase(partialTitle);
    if pos( partialTitle, sTitleTemp ) <> 0 then
      Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;

此处您有如何将鼠标点击发送到'窗口'

http://delphi.about.com/od/vclusing/a/mouseadvanced.htm

如何从Delphi发送击键到另一个应用程序

http://delphi.about.com/od/adptips2004/a/bltip1104_3.htm

如果您想要其他内容，请修改您的问题

Answer 2

（关于你对你的问题的评论）如果按钮是标准的BUTTON control，找到它的句柄并向其发送BM_CLICK消息（注意对话时文档中的备注）不活跃）。