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 ? :gruebel:

[Ferber]

Hab's mittlerweile selbst hingekriegt.
Nachdem das Prog als ComObjekt von Excel aus gestartet, und die Dialoge von VB aus aufgerufen werden,
gebe ich als Parameter 'ActiveSheet' mit und bekomme mit 'ActiveSheet.Application.ActiveWorkbook.Name' den
Namen des offenen Workbooks, damit funktioniert auch 'findwindow' :idea: