Top > OOoBasic > Generic > MozillaProfile

* Mozilla プロファイル [#v80066cd]

Mozilla、Firefox、Thunderbird のプロファイルを探します。com.sun.star.mozilla.MozillaBootstrap サービスを使用します。

#contents

** プロファイルの検索 [#oe442c5a]
Thunderbird のプロファイルを検索、一覧とパスを表示します。

プロファイルの検索には &idlref(com.sun.star.mozilla.XProfileDiscover); インターフェースを使用します。
#code(ob){{
Sub MozillaProfile
  nMozType = com.sun.star.mozilla.MozillaProductType
  
  oMozBootstrap = CreateUnoService("com.sun.star.mozilla.MozillaBootstrap")
  
  nProductType = nMozType.Thunderbird
  
  sTxt = FindProfile( oMozBootstrap, nProductType )
  
  msgbox "Thunderbird:" & chr(10) & sTxt
End Sub


Function FindProfile( oBootstrap As Object, nType )
  Dim sList() As String
  sLF = chr(10)
  sTxt = ""
  
  sDefault = oBootstrap.getDefaultProfile(nType)
  sTxt = "Default profile: " & sDefault & sLF
  
  oBootstrap.getProfileList(nType, sList)
  
  sTxt = sTxt & "Profiles:" & sLF
  For i = 0 To UBound(sList) step 1
    sTxt = sTxt & sList(i) & ": " & _
        oBootstrap.getProfilePath(nType, sList(i)) & sLF
  Next
  
  FindProfile = sTxt
End Function
}}

&idlref(com.sun.star.mozilla.MozillaProductType); は以下のものが利用できます。

|>|>|com.sun.star.mozilla.MozillaProductType|h
|Default|0||
|Mozilla|1||
|Firefox|2||
|Thunderbird|3||

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes