Delphi postmessage的问题

Question

postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
我用这个可以关闭一个IE窗口
但是我用
for i:=0 to 100 do
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
还是只能关闭一个窗口
玩什么循环了一百次还是只关闭一个窗口呢

Answer 1

for i:=0 to 100 do 
begin
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
sleep(0);
end;

Answer 2

这样吧，不管有开多少个IE都关了：
var h:THandle;
begin
  while True do
  begin
    h:=FindWindow('ieframe',nil);
    if h<>0 then
    begin
      PostMessage(h,WM_CLOSE,0,0);
      sleep(10);
    end else break;
  end;
end;