Word OLE ReadOnly, Meldung beim Beenden unterdrücken

[hoika]

Hallo #,

folgender Code öffnet ein Dokument ReadOnly in Word.

Delphi-Quellcode:

FWordApp.Documents.Open(DocTemplate,ConfirmConversions,
      ReadOnly,AddToRecentFiles,
      PasswordDocument,PasswordTemplate,
      Revert,WritePasswordDocument,
      WritePasswordTemplate,Format,
      Encoding, Visible);
FWordApp.ActiveDocument.Protect(wdAllowOnlyFormFields,EmptyParam,EmptyParam);
FWordApp.DisplayAlerts:= wdAlertsNone;

Dummerweise kommt immer noch die Meldung "Dokument speichern?",
wenn ich Word beende.

Den Code habe ich hier noch gefunden,
bekomme ihn aber unter Delphi nicht zum Laufen ?

http://www.a-m-i.de/tips/office/officeautomation.php
VARIANT vArgsClose;
vArgsClose.vt = VT_BOOL;
vArgsClose.boolVal = FALSE;
spDocuments.Invoke1(L"Close", &vArgsClose, &vResult);

Hat jemand noch einen Tip für mich ?

Danke


Heiko