// Eine erzeugte Word-App wird in den Vordergrund gebracht.


// Getestet mit RS 10.4 unter Win11

uses System.Win.ComObj; 
 
var 
  Wordapp: OleVariant; 
  HND: THandle; 
  NameOf: String; 
 
procedure WordTest; 
begin 
  Screen.Cursor := crHourGlass; 
  try 
    Wordapp := CreateOleObject('Word.Application'); 
  except 
    Screen.Cursor := crDefault; 
    ShowMessage('Word konnte leider nicht angesteuert werden!'); 
    exit; 
  end; 
  Wordapp.Documents.Add; 
  // mach Sonstiges 
  Wordapp.visible := True; 
  NameOf := Wordapp.ActiveWindow.Caption; 
  Application.ProcessMessages; 
  HND := FindWindow('OpusApp', pchar(NameOf + ' - Word')); 
  if HND = 0 then 
    HND := FindWindow(nil, pchar(NameOf + ' - Word')); 
  if HND <> 0 then 
    SetForegroundWindow(HND); 
  Screen.Cursor := crDefault; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WordTest; 
end;

Zugriffe seit 6.9.2001 auf Delphi-Ecke