Prozess erkennen und beenden

[pascalts]

Guten Morgen!

Mein Programm kommuniziert mit Word und Excel. Deswegen ist es essentiell wichtig, dass keine Word-Dateien geöffnet sind, bevor ich einen Teilprozess starte.

Wie kann ich (unter Windows) feststellen, ob ein Programm / Prozess mit dem Name "WINWORD.EXE" gestartet wurde? Ich möchte dem Nutzer dann Gelegenheit geben, seine Arbeit zu speichern und Word selbst zu beenden.

In seltenen Fällen läuft Word im Hintergund und wird nicht grafisch angezeigt. In diesem Fall würde ich gern den Prozess killen. Ist dies möglich?

MfG Pascal

[marcov]

Ja, via der Prozess Api.

Das sind normale Windows API Calls, und dafuer sollte es Windows und auch schon Lazarus beispiele geben. Glaube das auch Jedi JCL da etwas mit macht.

Typisch werden process32first und -next oder enumprocesess genutzt.

[Socke]

Mein Programm kommuniziert mit Word und Excel. Deswegen ist es essentiell wichtig, dass keine Word-Dateien geöffnet sind, bevor ich einen Teilprozess starte.

Wenn du über die COM-Schnittstelle arbeitest, kannst du darüber abfragen, ob Dateien geöffnet sind.
Hier hast du sowieso Zugriff auf das Excel-/Word-Anwendungsobjekt und kannst es darüber auch beenden.

[pascalts]

Wenn du über die COM-Schnittstelle arbeitest, kannst du darüber abfragen, ob Dateien geöffnet sind.
Hier hast du sowieso Zugriff auf das Excel-/Word-Anwendungsobjekt und kannst es darüber auch beenden.

Ich greife über OLE zu: http://wiki.lazarus.freepascal.org/WordAutomation/de

[Patito]

Vielleicht musst Du den anderen Prozess auch gar nicht beenden.

Als ich mal Word mit OLE verwendet habe, konnte ich irgendwo per Parameter angeben,
dass ich für meine Aktionen einen eigenen Prozess haben will.

[pascalts]

Vielleicht musst Du den anderen Prozess auch gar nicht beenden.

Als ich mal Word mit OLE verwendet habe, konnte ich irgendwo per Parameter angeben,
dass ich für meine Aktionen einen eigenen Prozess haben will.

Mein Problem ist, dass eventuell die Datei, in die ich speichern will, schon in Word geöffnet ist (überschreiben dann nicht möglich) oder die Vorlage die ich verwende schon geöffnet ist... Diese beiden Zustände gilt es zu vermeiden.

[mschnell]

Mein Problem ist, dass eventuell die Datei, in die ich speichern will, schon in Word geöffnet ist (überschreiben dann nicht möglich) oder die Vorlage die ich verwende schon geöffnet ist... Diese beiden Zustände gilt es zu vermeiden.

Eine Datei kann auch von einem anderen (z.B. Netzwerk-) User geöffnet sein. Da kannst Du nix machen.

-Michael

[wp_xyz]

Was willst du denn eigentlich machen? Vielleicht geht das ja auch mit Bordmitteln. Eine anderes Programm abzuschießen, ist immer eine unsaubere Lösung, das wirst du spätestens merken, wenn nicht gespeicherte Änderungen verloren gehen.

[pascalts]

Was willst du denn eigentlich machen? Vielleicht geht das ja auch mit Bordmitteln. Eine anderes Programm abzuschießen, ist immer eine unsaubere Lösung, das wirst du spätestens merken, wenn nicht gespeicherte Änderungen verloren gehen.

Mein Programm öffnet eine Datei (eine Vorlage, Word Dokument), editiert diese Datei, und speichert sie unter einem neuen Name. Probleme stellen sich dar, wenn
-Die Vorlage (warum auch immer) geöffnet ist
-Die Zieldatei (welche in einigen Fällen aktualisiert also überschrieben wird) geöffnet ist
Einfachste Lösung meiner Meinung nach: Den User auffordern, Word zu schließen, falls es offen ist. Deswegen möchte ich dedektieren, ob ein Word-Prozess läuft. Außerdem (aber eher Bonus) möchte ich diesen Word-Prozess, falls vorhanden, killen können. Hintergrund hier ist, dass wir andere Programme einsetzen, die Word im Hintergrund (also ohne GUI) starten, und gern mal hängen bleiben oder anderweitig gecancelt werden. Word bleibt dann im Hintergrund offen - und blockiert stellenweise mein Programm.

Grüße!

[wp_xyz]

Es kommt drauf an, was du an den Word-Dateien ändern möchtest. Hast du schon einmal daran gedacht, die Dateien direkt zu bearbeiten? Seit Office 2007 sind das nur noch gezippte xml-Dateien, kleine Änderungen kann man durchaus selbst anbringen. Oder mit fpvectorial (in Lazaraus/Components/fpvectorial) kannst du einfache docx-Dateien unabhängig von Word erzeugen.

[Warf]

Einfach Prozesse zu killen ist sowieso schonmal der Falsche Ansatz, stell dir mal vor du hast im Hintergrund grade Word offen, und schreibst an einem Dokument, welches komplett unabhängig von dem ist womit dein Programm arbeitet, und dann killt dein Programm Word einfach so. Also ich wäre da verdammt genervt wenn einfach irgendwelche Prozesse gekilled würden.

Was du eher versuchen solltest ist rauszufinden ob das Dokument welches dein Programm benutzt derzeit in Benutzung ist

[mark332]

Einfach Prozesse zu killen ist sowieso schonmal der Falsche Ansatz, stell dir mal vor du hast im Hintergrund grade Word offen, und schreibst an einem Dokument, welches komplett unabhängig von dem ist womit dein Programm arbeitet, und dann killt dein Programm Word einfach so. Also ich wäre da verdammt genervt wenn einfach irgendwelche Prozesse gekilled würden.

Was du eher versuchen solltest ist rauszufinden ob das Dokument welches dein Programm benutzt derzeit in Benutzung ist

Ich denke mal, dass er eine Nutzerinteraktion meint, die erst den Kill auslöst, zum Beispiel einen Button "Zum Schließen zwingen" zumal Word bei ungespeicherten Dokumenten ja sogar den Shutdown von Windows aufhält

Und wenn andere Programme den Word-Prozess im Hintergrund öffnen bleibt auch nicht viel übrig als terminieren, esseidenn, man kann Word im Nachhinein anweisen, sich im Vordergrund zu zeigen (falls diese Backgroundprozesse überhaupt über ein GUI verfügen)

MfG

mark332

[Christian]

In meiner Utils
https://github.com/cutec-chris/general/ ... /Utils.pas
Gibtes eine IsFileOpen Funktion, die macht genau das.

[gocher]

Code: Alles auswählen

uses   Variants, ComObj, ActiveX;
...
var
  Word: Variant;
begin
  try
    Word := GetActiveOleObject('Word.Application');
    ShowMessage('Word is open!');
    Word.Quit;
    Word := Unassigned;
  except
      ShowMessage('Word not open !');
      Exit;
  end;
end;

Unter Umständen laufen allerdings auch mehrere Instanzen von Word. Für den Fall könnte man GetActiveOleObject in eine Schleife packen und so alle aktiven Instanzen schließen.

Vermutlich erzeugst Du die Instanzen im Hintergrund selbst wenn du mit Ole-Automatisierung auf Word zugreifst.
Um das zu verhindern würde ich den Zugriff auf Word wie folgt aufbauen:

Code: Alles auswählen

  try
    Word := GetActiveOleObject('Word.Application'); // nimmt sich falls vorhanden die Instanz
  except on exception do
    Word := CreateOleObject('Word.Application'); // erzeugt eine Instanz da keine existiert
  end;
  try
    ...  // deine Automatisierung    
  finally
    Word.Quit;
    Word := Unassigned;
  end;