Outlook mit Delphi schließen?

[JBJHJM]

Zunächst: Ich habe mich schon umgeguckt und einiges gefunden, aber das alles scheint nicht direkt zu passen.
Ich habe ein Programm, das nicht direkt mit Outlook zusammenarbeiten soll, es muss nur in der Lage sein Outlook zu starten und zu beenden.
Das starten über die normale outlook.exe ist kein Problem, aber das Schließen erweist sich, da ich nicht auf einen brutalen Prozess-Kill zurückgreifen will, als schwierig.
Ich habe eine "GetHandleByExeName"-Funktion, da Outlooks Titel sich ja leider andauernd ändert.
Habe das Ergebnis der Funktion per InttoStr ausgelesen, ist auf jeden Fall ungleich null, gibt es irgendeine Möglichkeit zu überprüfen, zu welchem Programm diese Nummer gehört?
Ich denke eigentlich, das sollte so weit funktionieren, aber dann sende ich den Befehl

Delphi-Quellcode:

PostMessage(GetWindowHandleByExeName('Outlook.exe'), WM_CLOSE, 0, 0);

und es passiert absolut nichts!

positiv: Es gibt auch keine Fehlermeldung :mrgreen:

Wie kann ich Outlook mit Delphi "normal" schließen?

[Luckie]

Zitat:

Zitat von JBJHJM

Ich habe eine "GetHandleByExeName"-Funktion

Und wie sieht die aus? Hast du schon mal SendMessage probiert?

[Bernhard Geyer]

Folgendes VBS sollte gehen:

Code:

set objOLK = createObject("Outlook.Application")
objOLK.quit

Lässt sich praktisch 1:1 nach Delphi umsetzen.

[JBJHJM]

Als hadle-by-exe-Funktion habe ich diese hier übernommen:
http://www.delphi-treff.de/tipps/sys...ns%20erhalten/

Mit sendmessage gibts das gleiche Ergebnis.

Bernhard, kannst du das mal genauer erläutern? Danke!

[JBJHJM]

Habe es hinbekommen!!!! Und freue mich drüber :mrgreen:

Hierder genutzte Code, für alle die ihn jemals brauchen:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinTypes, WinProcs, TLHelp32, ComObj, ActiveX, Outlook_TLB;

...

procedure TForm2.Button1Click(Sender: TObject);
var
  Outlook: _Application;
begin
  Outlook := CoOutlookApplication.Create;
  Outlook.Quit;
end;

Danke nochmal!