张志峰的博客

摘要： Delphi Ole操作Word，判断是否有打开的文档，并且给关闭。Function ChkWordIsOpen(const AFullFileName: string): boolean;var WordApp: variant; CurrDoc: variant;begin Result := False; WordApp := GetActiveOleObject('word.Application'); CurrDoc := WordApp.documents.Open(AFullFileName, Revert:=true, Visible := true ); Cu 阅读全文