Come posso ottenere il nome dell'applicazione predefinita che gestisce i file?

[vuott]

https://lists.gambas-basic.org/pipermail/user/2024-February/081493.html

[Gianluigi]

Ciao vuott,
a volte ci fissiamo su cose complicate anche dove (forse) sono semplici.
Ogni file eseguibile ha un lanciatore, pertanto:

Codice: [Seleziona]

Public Sub Main()

  Dim sPath, sFM As String
  Dim aFM As String[] = ["konqueror", "nautilus", "dolphin", "mc", "krusader", "pcmanfm-qt", "pcmanfm", "xfe", "nemo", "thunar", "spacefm", "caja", "ranger", "deepin", "polo", "cfiles", "emacs", "vifm", "worker", "nnn", "wcm", "4panel", "lf", "jfileprocessor", "qtfm", "fman", "ytree", "liri", "pantheon", "doublecmd"]
  Dim aInstallFM As New String[]

  For i As Integer = 0 To aFM.Max
    sPath = "/usr/bin" &/ aFM[i]
    If Exist(sPath) Then 
      aInstallFM.Push(aFM[i])
    Endif
  Next
  For Each sFM In aInstallFM
    Print sFM
  Next

End

questo codice dovrebbe funzionare ovunque e non credo che tenere la lista aggiornata sia un problema, cosa ne pensi?
 

[vuott]

...ma la mia proposta perché non va bene ?

[kicco]

...ma la mia proposta perché non va bene ?

Perché sei antipatico! 

[Gianluigi]

...ma la mia proposta perché non va bene ?

Perché a me non funziona (ho riprovato ancora poco fa) inserisco un una path valida a un programma gambas ma non succede nulla.
Credo che lui voglia aprire il File Manager (nel suo caso Thunar)

... e poi anche per il motivo che ha detto kicco 

 

[vuott]

Perché a me non funziona

A me funziona.......siete voi evidentemente che state antipatici a quel codice !

[Gianluigi]

Perché a me non funziona

A me funziona.......siete voi evidentemente che state antipatici a quel codice !

path = "/path/of/file"

o forse non abbiamo capito cosa occorre inserire nella path 

[vuott]

Io mi sono rifatto a questa pagina della nostra Wiki: 

   https://www.gambas-it.org/wiki/index.php/Conoscere_a_quale_applicazione_%C3%A8_associato_un_tipo_di_file