Valor en ejecucion

Valor en ejecucion

Postby servicomver » Sun Nov 22, 2020 5:18 pm

Hola, como puedo hacer que un exe pueda distinguir por una variable la ruta de uso ? por ejemplo
CAJA.EXE 2
c\dastos2\

necesito que ese 2 lo tome en cuenta ("lea") el programa y sepa que el subdirectorio de trabajo y bases de datos corresponden al almacén 2-

CAJA.EXE 3
este tome otro directorio por ejemplo c:\datos3\

Como tomo o recupero esos números en cada caso (2 o 3) ???
Para que el programa CAJA.EXE lo use (CAJA.EXE sería el mismo programa)

Espero haberme explicado correctamente, gracias
servicomver
 
Posts: 180
Joined: Fri Nov 18, 2005 7:34 pm

Re: Valor en ejecucion

Postby leandro » Sun Nov 22, 2020 5:24 pm

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1619
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: Valor en ejecucion

Postby Armando » Mon Nov 23, 2020 11:04 am

Servicom:

A ver si esto es lo que necesitas?

Code: Select all  Expand view

MsgInfo( cFilePath(GetModuleFileName(GetInstance())) )
 


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3175
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Valor en ejecucion

Postby cmsoft » Mon Nov 23, 2020 6:50 pm

Code: Select all  Expand view
FUNCTION Main(cParametro)
DO CASE
   CASE cParametro= "2"
        cPath := "C:\DATOS2"
   CASE cParametro= "3"
        cPath := "C:\DATOS3"
   OTHERWISE
        MsgStop("Debe pasar el parametro","Error")
       RETURN nil  
ENDCASE
....
 

Después puedes llamar a CAJA.EXE 2 o CAJA.EXE 3 y segun el caso tener el path de tus datos.
User avatar
cmsoft
 
Posts: 1257
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 83 guests