请问我用ShowMessage()函数后，如何用语句实现关闭此窗口

Question

我是一个菜鸟
请问我用ShowMessage()函数后，如何用语句实现点击此窗口的“确定”按钮？
谢谢！！

Answer 1

参考如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  ShowMessage('ok');
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  h, c: THandle;
begin
  h := FindWindow('TMessageForm', nil);
  if h <> 0 then
  begin
    c := FindWindowEx(h, 0, nil, 'OK');
    if c <> 0 then
      SendMessage(c, BM_CLICK, 0, 0);
  end;
  Timer1.Enabled := False;
end;

Answer 2

方法太多了
最简单的
procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.Enabled:=true;
    ShowMessage('ok');
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    keybd_event(13,0,KEYEVENTF_EXTENDEDKEY or 0,0);
    keybd_event(13,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
    Timer1.Enabled:=false;
end;timer的enable属性默认改为false