Lanzar ejecutable desde otro ejecutable.

Board index FiveWin para Harbour/xHarbour Lanzar ejecutable desde otro ejecutable.

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Lanzar ejecutable desde otro ejecutable.
Posted: Tue Aug 07, 2012 09:50 PM

Hola a todos,

¿Cómo harían ustedes para lanzar esta aplicación (y sus parámetros) desde otra aplicación?

C:\AMPA1203\Exe\Ampa32.exe /S:10 /P:FF20121030 /F:C:\AMPA1203\EXE\BD\20112012 /A:F

Tanto el ejecutable desde donde pretendo lanzar la otra aplicación como esta última són aplicaciones Fivewin.

Y otra pregunta, ¿Le ven alguna limitación en cuanto a lanzar la misma aplicación 'n' veces pero con distintos parámetros?

Gracias,

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Lanzar ejecutable desde otro ejecutable.
Posted: Tue Aug 07, 2012 10:20 PM

Hola

Yo lo hago de esta manera

Code (fw): Select all Collapse

WinExec( ViewUsu():cPathUpd+"\Update.exe "+cVersion )

programa update.exe

Code (fw): Select all Collapse

function Update( cValor )
    local PATHSERVER,   PATHDATOS, lExe, oIni, Usuario, aFiles, xTmp

    if IsExeRunning(cFileName(GetModuleFileName(GetInstance())))
        MsgWait( "El programa Update está actualmente corriendo" )
        return( .f. )
    endif

    if empty( cValor )
        return( .f. )
    endif
      //bla-bla-bla

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

joseluispalma

Posts: 109

Joined: Mon Apr 30, 2012 09:10 AM

Re: Lanzar ejecutable desde otro ejecutable.
Posted: Wed Aug 08, 2012 07:00 AM

Hola,

Aquí tienes también otra excelente opción:

http://bielsys.blogspot.com.es/2009/02/ ... ca-de.html

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Lanzar ejecutable desde otro ejecutable.
Posted: Wed Aug 08, 2012 08:11 AM

Hola que tal:

Lo que yo hago para lanzar una aplicación es crear un archivo .LNK o .BAT:

LNK

Code (fw): Select all Collapse

if file("cyewin.lnk")
  erase cyewin.lnk
endif
oShell  := TOleAuto():New( "WScript.Shell" )
o := oShell:CreateShortCut( 'cyewin.lnk')
o:WindowStyle      := 1
o:TargetPath       := CurDrive() + ':\' + CurDir() + '\cyewin\cyewin.exe'
o:Arguments        := ValEjer
o:WorkingDirectory := CurDrive() + ':\' + CurDir() + '\cyewin'
o:Description      := 'CyEWin, Contabilidad y Estimaciones para Windows'
o:IconLocation     := CurDrive() + ':\' + CurDir() + '\cyewin\cyewin.ico'
o:Save()
ShellExecute(0,"Open","cyewin.lnk",NIL,NIL,1)
erase cyewin.lnk

BAT

Code (fw): Select all Collapse

if file("impr.bat")
  erase impr.bat
endif
set console off
m := fcreate ("impr.bat",0)
fwrite (m,"cd impranua")
fwrite (m,chr(13))
fwrite (m,chr(10))
fwrite (m,"java -jar PlataformaModulosInformativas.jar /E:" + nombfich + " /V:S /R:" + errofich)
fwrite (m,chr(13))
fwrite (m,chr(10))
fwrite (m,"cd ..")
fwrite (m,chr(13))
fwrite (m,chr(10))
fclose (m)
waitrun("impr.bat",0)
erase impr.bat

Al final uso waitrun o Shellexecute dependiendo de si quiero que espere o no a que termine la ejecución. Y borro el archivo que he creado.

Un saludo y espero que te sirva.

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Lanzar ejecutable desde otro ejecutable.
Posted: Wed Aug 08, 2012 11:43 AM

colthop wrote:Hola que tal:

Lo que yo hago para lanzar una aplicación es crear un archivo .LNK o .BAT:

LNK

Code (fw): Select all Collapse

if file("cyewin.lnk")
  erase cyewin.lnk
endif
oShell  := TOleAuto():New( "WScript.Shell" )
o := oShell:CreateShortCut( 'cyewin.lnk')
o:WindowStyle      := 1
o:TargetPath       := CurDrive() + ':\' + CurDir() + '\cyewin\cyewin.exe'
o:Arguments        := ValEjer
o:WorkingDirectory := CurDrive() + ':\' + CurDir() + '\cyewin'
o:Description      := 'CyEWin, Contabilidad y Estimaciones para Windows'
o:IconLocation     := CurDrive() + ':\' + CurDir() + '\cyewin\cyewin.ico'
o:Save()
ShellExecute(0,"Open","cyewin.lnk",NIL,NIL,1)
erase cyewin.lnk

BAT

Code (fw): Select all Collapse

if file("impr.bat")
  erase impr.bat
endif
set console off
m := fcreate ("impr.bat",0)
fwrite (m,"cd impranua")
fwrite (m,chr(13))
fwrite (m,chr(10))
fwrite (m,"java -jar PlataformaModulosInformativas.jar /E:" + nombfich + " /V:S /R:" + errofich)
fwrite (m,chr(13))
fwrite (m,chr(10))
fwrite (m,"cd ..")
fwrite (m,chr(13))
fwrite (m,chr(10))
fclose (m)
waitrun("impr.bat",0)
erase impr.bat

Al final uso waitrun o Shellexecute dependiendo de si quiero que espere o no a que termine la ejecución. Y borro el archivo que he creado.

Un saludo y espero que te sirva.

Carlos

Muchas gracias,

Eso es lo que buscaba.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion