如何將參數傳遞給OLE自動化對象，如MS Word

Question

這主要是與Delphi語法相關的問題。 我需要在調用OLE對象的方法時將參數設置為True。

我需要在Word Automation中設置（這是來自Word Reference ）：

wdApp.Quit SaveChanges:=wdDoNotSaveChanges

作為一個例子我想做的虛擬程序（請注意WordApp.Quit！）：

Procedure GetWordVersion;
    var
      WordApp: OLEVariant;
    begin
      { Create the OLE Object }
      Try
          WordApp := CreateOLEObject('Word.Application');
          WordVersion := WordApp.version;
           WordApp.Quit; // >-- HERE!!!!
      except
        on E: Exception do
        begin
          WordVersion := -1;
        end;
      End;
end;

在這里 （檢查接受的答案）似乎完成了相同的事情，但如果我嘗試它：不編譯。 我這里只復制相關部分：

Const wdDoNotSaveChanges = 0
[...]

  wdo.Quit wdDoNotSaveChanges 

[...]

End Function

重要提示：而不是使用

// this is from Word Reference    
wdApp.Quit SaveChanges:=wdDoNotSaveChanges

可以使用

// from Word Reference
wdApp.NormalTemplate.Saved = True

任何人都可以修改我上面的GetWordVersion程序，以便使用上述兩種方法中的任何一種嗎？ 謝謝。

Answer 1

你可以寫：

Wordapp.Quit（調用SaveChanges：= wdDoNotSaveChanges）;

或者用這個：

word := CreateOleObject('Word.Application'); 

.... 
word.DisplayAlerts := false;
word.Quit;