sendmessage问题

Question

我用delphi API函数shellexecute 调用公司内部网页后再用sendmessage函数关掉网页怎么关不掉代码如下:
var
Wnd:HWND;
begin
shellexecute(handle,'open','http://192.168.203.30',nil,nil,0);
Wnd:=FindWindow('IEFrame', nil);
sendmessage(Wnd,WM_CLOSE ,0,0,) ;

Answer 1

你这里有几个问题，
1.shellexecute是异步执行的，而打开网页需要时间，你要等他
2.FindWindow需要检查返回的值，直到发现窗口存在才发关闭消息
3.IEFrame可能有多个，也需要相应编程处理