PostMessage(AHandle, WM_CLOSE, 0, 0);

The PostMessage Windows API function is used to send a message to a control (in our case this control is IE's main window) but allows the control to wait until it has finished any other messages before it handles ours. The PostMessage's first parameter is the handle to the control we want to send a message; the second parameter is the actual message to be sent - the WM_CLOSE indicates a signal that a window or an application should terminate. The third and fourth parameters specify additional message-specific information (in our case no specific information is required).

All in all, this is how the OnClick event handler for the btnCloseIE button should look:

procedure TForm1.btnCloseIEClick(Sender: TObject);
var  IEHandle : THandle;
begin
  if lbIEURL.ItemIndex = -1 then
  begin
    ShowMessage('Please select an IE window by URL from the list!');
    Exit;
  end;
  IEHandle := THandle(lbIEURL.Items.Objects[lbIEURL.ItemIndex]);
  PostMessage(IEHandle, WM_CLOSE, 0, 0);
end;

Pretty easy, wouldn't you say? Note that in order to "save" the Handle, we have used the AddObject method of the TStrings object (Items property of the TListBox).

   Close with Mask

Here's the code:

procedure TForm1.btnCloseMaskClick(Sender: TObject);
var
  i,j : integer;
  Handle : THandle;
begin
  for i := 0 to -1 + lbIEURL.Items.Count do
  begin
    for j := 0 to -1 + lbNOK.Items.Count do
      if MatchesMask(lbIEURL.Items[i], '*' + lbNOK.Items[j] + '*') then
      begin
        Handle := THandle(lbIEURL.Items.Objects[i]);
        PostMessage(Handle, WM_CLOSE, 0, 0);
      end;
  end;
end;

Once again, it's a piece of cake using Delphi. The above code simply iterates through all the URLs found (in the previous call to btnRefreshClick procedure), if the URL matches the masks (using the MatchesMask RTL function) specified in the lbNOK listbox we send the WM_CLOSE message.

   Ideas? Questions?