Annonce
Pour sécuriser votre compte sur les forums du GeoRezo, nous demandons de changer votre mot de passe.
Vous allez recevoir un message pour effectuer ce changement de mot de passe.
Merci de bien respecter les règles préconisées.
#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
