From: <ou...@us...> - 2011-06-11 18:12:05
|
Revision: 3533 http://jcl.svn.sourceforge.net/jcl/?rev=3533&view=rev Author: outchy Date: 2011-06-11 18:11:59 +0000 (Sat, 11 Jun 2011) Log Message: ----------- Mantis 5541: New function IsLibreOfficeInstalled. Modified Paths: -------------- trunk/jcl/source/common/JclSysInfo.pas Modified: trunk/jcl/source/common/JclSysInfo.pas =================================================================== --- trunk/jcl/source/common/JclSysInfo.pas 2011-06-11 18:07:39 UTC (rev 3532) +++ trunk/jcl/source/common/JclSysInfo.pas 2011-06-11 18:11:59 UTC (rev 3533) @@ -1359,6 +1359,7 @@ function IsInternetExplorerInstalled: Boolean; function IsMSProjectInstalled: Boolean; function IsOpenOfficeInstalled: Boolean; +function IsLibreOfficeInstalled: Boolean; {$ENDIF MSWINDOWS} @@ -5546,6 +5547,11 @@ Result := ProgIDExists('com.sun.star.ServiceManager'); end; +function IsLibreOfficeInstalled: Boolean; +begin + Result := ProgIDExists('com.sun.star.ServiceManager.1'); +end; + //=== Initialization/Finalization ============================================ procedure InitSysInfo; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |