Top > OOoBasic > Generic > MozillaProfile

Mozilla プロファイル Edit

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

プロファイルの検索 Edit

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

プロファイルの検索には com.sun.star.mozilla.XProfileDiscover インターフェースを使用します。

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
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

com.sun.star.mozilla.MozillaProductType は以下のものが利用できます。

com.sun.star.mozilla.MozillaProductType
Default0
Mozilla1
Firefox2
Thunderbird3

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