Delphi postmessage的有关问题
Delphi postmessage的问题
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
我用这个可以关闭一个IE窗口
但是我用
for i:=0 to 100 do
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
还是只能关闭一个窗口
玩什么循环了一百次还是只关闭一个窗口呢
------解决方案--------------------
这样吧，不管有开多少个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;
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
我用这个可以关闭一个IE窗口
但是我用
for i:=0 to 100 do
postMessage(FindWindow('ieframe',nil),WM_CLOSE,0,0);
还是只能关闭一个窗口
玩什么循环了一百次还是只关闭一个窗口呢
------解决方案--------------------
这样吧，不管有开多少个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;