Word Handle OLE

[WizoHulk]

Hallo,

Wie kann ich eine Word-Instanz aus meiner Taskleiste holen?
ich habe es schon mit diesen versucht, aber leider kennt OLE diese Funktion nicht.

Delphi-Quellcode:

   {* Prüfe ob instanz vorhanden ist *}
   Word             := GetActiveOleObject('Word.Application');
   //WordHandle       := FindWindow('Microsoft Word',nil);
   WordHandle       := Word.Hwnd;
   Word.WindowState := wsNormal;
   Word.Visible  := True;
   SetForegroundWindow(WordHandle);

kurioser weise haut diese mit Excel wunderbar hin

Delphi-Quellcode:

  Excel             := GetActiveOleObject('Excel.Application');
    ExcelHandle       := Excel.Hwnd;          {* Handle wird ermittelt *}
    Excel.WindowState := SW_SHOWNORMAL;       {* Fenster wird aus der Taskleiste geholt *}
    SetForegroundWindow(ExcelHandle);         {* Fenster wird in den Vordergrund geholt *}

weiss jemand wie ich dieses Problem lösen kann?

[WizoHulk]

Fehler behoben

War mal wieder DAU.
hier die Lösung

Delphi-Quellcode:

WordHandle       := FindWindow(nil,'Microsoft Word');

Hatte nach nen Klassennamen gesucht und nicht nach den Fensternamen.

Sorry für den unsinnigen Thread.

[rollstuhlfahrer]

Vielleicht doch noch was: Du hast für die beidem Office-Programme komplett unterschiedliche herangehensweisen, wie du das Fenster wieder sichtbar machst (1. wsNormal + Visible, 2. nur SHOW_...). Da ja das gleiche Ziel zu erreichen gesucht ist, könntest du auch eine Funktion bauen, die entweder aus Konstanten-Arrays sich die Werte holt und du dann nur einen Enum (z.B. AppWord, AppExcel, ...) übergibst oder du baust eine Funktion, der du dann 'Word.Application' und den ganzen Rest mitgibst.

Bernhard