Word Datei nach öffnen in Vordergrund

[ueei.net]

Hallo,

ich öffne mir eine Word Datei mittels

try
Word := GetActiveOleObject('Word.Application');
except
Word := CreateOleObject('Word.Application');
end;
Word.Documents.Open(FileName := datei);
Word.Visible := True;

Wenn aber das Dokument nun geöffnet wurde, bleibt Word im Hintergrund.

Wie kann ich aber den Focus auf Word setzen?

[Rastaman]

Delphi-Quellcode:

uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle,'open','la.doc',0,0,SW_NORMAL);
end;

[ueei.net]

kann leider so nicht arbeiten, da ich mehrere files zusammenfüge, beispiel war nur ein kleiner teil.

[Rastaman]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  wnd: HWND;
begin
  //Word Fenster finden;
  wnd := FindWindow(nil, 'la.doc - Microsoft Word');
  //Word in den Vordergrund schieben;
  SetWindowPos(wnd,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
  //Das immer im Vordergrund zurücksetzen;
  SetWindowPos(wnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
end;

//Edit: Für la.doc dann halt deinen Dateinamen einsetzen...