Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Wed 21 October 2009 21:53
- snaileater
- Participant actif
- Date d'inscription: 5 Nov 2008
- Messages: 121
Quel est le nom du MBX en cours d'exécution ?
Bonjour,
existe-t-il une fonction Mapbasic permettant de faire référence au nom du MBX (nom du fichier *.mbx) en cours d'exécution ?
Merci d'avance.
Hors ligne
#2 Wed 21 October 2009 23:19
- Richard Lohier
- Participant occasionnel
- Lieu: Le perray en yvelines
- Date d'inscription: 13 Nov 2006
- Messages: 28
Re: Quel est le nom du MBX en cours d'exécution ?
Bonsoir,
La fonction ci-dessous retourne le nom de l'application en cours (de démarrage).
Code:
Declare Function NomAppli$() as string
...
Function NomAppli$() as string
Onerror Goto Erreur
Dim Valeur$, Stringapplication$ As String
Dim Position# As Integer
Dim i_chan# As Integer
i_chan# = DDEInitiate( "MapInfo" , "System" )
Stringapplication$ = Right$(DDERequest$(i_chan#, "Topics"), 200)
While instr(1, Stringapplication$, "\") and Position# < 200
Stringapplication$ = mid$(Stringapplication$, instr(1, Stringapplication$, "\")+1, 200)
Position# = Position#+1
Wend
Stringapplication$ = Left$(Stringapplication$, len(Stringapplication$)-4)
NomAppli$ = Stringapplication$
Exit Function
Erreur:
End FunctionHors ligne
#3 Tue 27 October 2009 12:56
- snaileater
- Participant actif
- Date d'inscription: 5 Nov 2008
- Messages: 121
Re: Quel est le nom du MBX en cours d'exécution ?
Merci beaucoup, cela semble marcher comme attendu ...
La solution m'a l'air un peu "sioux", mais ça marche ... Est-ce que ce type de solution (je pense au DDEInitiate) est un peu documentée dans le manuel Mapinfo ?
Merci en tout cas.
Hors ligne
