Fremdes Programm (Excel) Focus setzen, Handle finden

[Ferber]

Zu diesem Thema habe ich diesen Beitrag gefunden:
http://www.delphipraxis.net/internal...cus+findwindow
Mein Problem ist, daß Excel den Fensternamen je nach geöffnetem Dokument ändert, somit 'findwindow' nicht funzt.
Dieser Code funktioniert solange Excel kein Dokument geöffnet hat:

Delphi-Quellcode:

procedure SetFocusTo(aWndName:String);
var AppHWnd:HWND;
begin
  AppHWnd := FindWindow(nil,PChar(aWndName));
  if IsWindow(AppHWnd) then
     SetForegroundWindow(appHWnd);
end;

procedure SetFocusToExcel;
begin
  SetFocusTo('Microsoft Excel');
end;

Wie finde ich AppHWnd auf alle Fälle ?