Um ein beliebiges Fenster zu schließen, gibt es verschiedene Möglichkeit.
Die Methode, die bei mir bisher am Besten funktioniert hat ist folgende:
Delphi-Quellcode:
const
IDS_WNDTITLE = 'about:blank - Microsoft Internet Explorer'; // Beschriftung des Fensters.
{...}
var
hWnd: DWORD;
{...}
hWnd := FindWindow(nil, IDS_WNDTITLE);
if hWnd <> 0 then
SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)
else
ShowMessage('Window does not exist.');
Chris