Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Development Mode
Message
 
 
À
15/10/2020 17:12:55
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01676646
Message ID:
01676684
Vues:
40
That is indeed very strange. See attached image, if I start the exe from VFP ide, it shows Devmode = .T.

I tested this on different locations, also different VFP 9. Servicepacks. Which version are you using?

>Christian,
>I made the following test:
>
>ln = Version(2)
>If ln = 2
>	Messagebox( Transform(m.ln), 0+16+0, "Title", 0 )  
>	? Set('path')
>Else	
>	Messagebox( Transform(m.ln), 0+16+0, "Title", 0 )  
>Endif
>
>
>When I now start my .pjx file ln=2, when I start the exe ln shows 0
>Stay healthy,
>Koen
>
>
>>I did the test with the following result:
>>1) Running exe by double click:
>>
>>llDevMode = ".FXP" $ SYS(16)
>>MESSAGEBOX(m.llDevMode) && .F.
>>MESSAGEBOX(VERSION(2)) && 0
>>
>>
>>2) Starting exe from VFP command window (Do ..exe)
>>
>>llDevMode = ".FXP" $ SYS(16)
>>MESSAGEBOX(m.llDevMode) && .F.
>>MESSAGEBOX(VERSION(2)) && 2
>>
>>
>>>Christian,
>>>I dont think your remark, quote you can start the exe from any VFP Command window typing DO MyVFPExe.Exe. Then it starts the program as usual, but VERSION(2) will indicate that you are running in developer mode. unquote.
>>>The moment your start the exe, wether you start it in the usual way by clicking the icon and or shortcut or by activating the exe via the line 'Do MyVFPExe.exe' you are NOT in development mode. Please make a small test and you will see.
>>>Stay haelthy,
>>>Koen
>>>
>>>>What I meant was, that instead of starting the exe directly (as the user typically does by double click on the shortcut), you can start the exe from any VFP Command window typing DO MyVFPExe.Exe. Then it starts the program as usual, but VERSION(2) will indicate that you are running in developer mode.
>>>>
>>>>So any person can run your program as developer if that is what you are looking at.
>>>>
>>>>Probably safest way would be to create a constant or public variable that you switch during compiling the release executable.
>>>>
>>>>
>>>>
>>>>>Christian,
>>>>>not 100% clear what you are trying to tell here,
>>>>>do you mean that you had a x=verstion(2) in your exe and upon that it installed the (complete) VFP,IDE on that pc?
>>>>>That is certainly not usual, the piece of code I gave here is part of all my .exe and I never ever had that result as you describe, so I must conclude I do misinterpreted your remark, would you be able to clearify>
>>>>>Stay healty,
>>>>>Koen
>>>>>
>>>>>
>>>>>>I once tested version(2) and could run an EXE file from VFP IDE (DO test.exe) and it would return Version(2) = 2 (development mode). So a client could run the exe in devmode with that approach if he installs VFP IDE.
>>>>>>
>>>>>>>Hi,
>>>>>>>Apart from Tore's usefull correct information there is also version() , if version(2) is returning 2 you are in development if version(2) returns 0 you are in Run time.
>>>>>>>usufull if you want to have 2 different settings of your path depending on the version.
>>>>>>>e.g.
>>>>>>>
>>>>>>>
>>>>>>>Set Path To []
>>>>>>>? SET('path')
>>>>>>>*** Go ahead and set the path
>>>>>>>If Version(2) # 0
>>>>>>>	***  We are in Development Mode
>>>>>>>	***  Set up Project search path
>>>>>>>	m.lcPath = Home() + ';' + Fullpath( Curdir() ) + [Class;  Data; Forms; Images ; Menu; Progs ; Reports; ReportingFiles]
>>>>>>>
>>>>>>>Else
>>>>>>>	*** We are in Production Mode
>>>>>>>	*** Set up application search paths
>>>>>>>	m.lcPath = Fullpath( Curdir() ) + [ ;Reports ; ReportingFiles]
>>>>>>>Endif
>>>>>>>
>>>>>>>
>>>>>>>Stay healthy,
>>>>>>>Koen
>>>>>>>>I'd like to bypass code while in development mode only.
>>>>>>>>
>>>>>>>>I'm fairly certain there's a way VFP knows it's running under development mode as opposed to running the EXE.
>>>>>>>>
>>>>>>>>Any help?
>>>>>>>>
>>>>>>>>Thanks,
>>>>>>>>Rich Murillo
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform