CreateOleObject verborgen ausführen?

[FriFra]

Wie kann ich erzwingen, dass die mit CreateOleObject aufgerufene Anwendung unsichtbar bleibt?

In meinem Fall handelt es sich um Lotus Notes. Immer wenn ich folgenden Aufruf mache:

Delphi-Quellcode:

Session := CreateOleObject('Notes.NotesSession');

wird zwar erfolgreich eine Session eröffnet, allerdings wird Notes gestartet, falls es noch nicht läuft. In diesem Fall hätte ich Notes aber gern unsichtbar! Wie kann ich das machen?

[FriFra]

Ich hab jetzt einen Workaround gefunden:

Delphi-Quellcode:

      { läuft Notes schon? }
      hNotes := FindWindow(nil, 'Lotus Notes');
      { Notessession erzeugen }
      Session := CreateOleObject('Notes.NotesSession');
      { Wenn Notes bereits lief, Handle zurücksetzten, ansonsten zuweisen }
      if hNotes > 0 then
        hNotes := 0
      else
        hNotes := FindWindow(nil, 'Lotus Notes');

    ... übriger Code ...

    { Wenn Notes extra neu gestartet wure muss es nun beendet werden }
    if hNotes > 0 then
      SendMessage(hNotes, WM_SYSCOMMAND, SC_CLOSE, 0);

Man sieht allerdings das Programmfenster mal kurz in der Startleiste Aufblinken...