Fenster Titel in Word oder Excel ändern

[oakley]

Hallo zusammen,

wenn man in Word oder Excel eine Datei öffnet, wird im Fenstertitel der Dateiname angezeigt.
Mit dem unten stehenden Code habe den Fenstertitel angepasst.
Allerdings steht der Dateiname noch davor, lässt sich das irgendwie ändern?

Vielleicht sowas?

Code:

var
  ExcelApp : Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.WorkBooks.Add;

  Excelapp.Visible := True;
  Excelapp.Caption := 'Test';
end;

Wie macht man das, wenn ich bereits per ShellExecute eine Excel Datei öffne und dann den Titel des Fensters ändern möchte?

Code:

var window:hwnd;
begin
  window:=findwindow(nil,'Unititled - Notpad');
  setwindowtext(window,'Test');

Damit bekomme ich ein geöffnetes Notepad Fenster und kann auch den Titel ändern.
Wenn ich mit der Maus ins Fester klicke ändert er sich allerdings wieder zurück.

Bei Word (Titel Dokument1 - Word) funktioniert es gar nicht.

LG

Mirko