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 ?
