TestComplete: Ein bestimmtes Dokument schliessen

In der TestComplete Online-Hilfe findet man diverse Beispiele, wie man einen bestimmten Process finden und dann auf dessen Fenster zugreifen kann. Was aber ist zu tun, wenn man nur den Namen eines Dokumentes kennt, welches man schliessen möchte? Beispielsweise ein Textdokument «Example.doc», welches in MS Office, OpenOffice oder LibreOffice geöffnet sein kann. Der Name des Prozesses ist in diesem Fall unbekannt.

Folgendes Delphi-Skript zeigt die Lösung: Es werden sämtliche Prozesse durchsucht und geprüft, ob der Dokumentenname im Titel des Fensters vorkommt:

function CloseOfficeDocument(aDocumentName: string);
var
  p, w, i;
begin
  p := Sys.FindAllChildren('ProcessName', '*');
  for i := 0 to VarArrayHighBound(p, 1) do begin
    w := p[i].Find('WndCaption', aDocumentName + '*');  
    if w.Exists then begin
      w.Close;
    end;
  end;
end;