Ein beliebiges Fenster schließen

[CalganX]

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