FiveTech Software tech support forums

Code: Select all  Expand view

SetPostErrorAction( { |cErrorLogFileName, oError| fErrorAction( cErrorLogFileName, oError ) } )

function fErrorAction(cErrorLogFileName, oError )

Local cExec := "c:\dlyma\dlyma.exe"

ShellExecute( 0, "Open", cExec, , 0, 1 ) //Es mejor asi?
winexec( cExec ) //o así?

return nil
 

ShellExecute() es más efectivo que WinExec() para iniciar aplicaciones en Windows. WinExec() es una función obsoleta que solo se proporciona por compatibilidad con Windows 16 bits. ShellExecute() permite especificar un verbo que indica la operación a realizar sobre un objeto de archivo o carpeta, como abrir, editar, imprimir, etc. Además, ShellExecute() puede iniciar aplicaciones asociadas a archivos que no son ejecutables, mientras que WinExec() solo puede iniciar archivos ejecutables. Por lo tanto, se recomienda usar ShellExecute() o ShellExecuteEx() en lugar de WinExec() para programar para Windows

Code: Select all  Expand view

ShellExecute() o ShellExecuteEx()
 

Code: Select all  Expand view

// C:\FWH\SAMPLES\EXEC2.PRG

#include "FiveWin.ch"

FUNCTION Main( cExec, cFile, lForce )  // .T.

   LOCAL cStdOut, cStdErr

   IF cExec = NIL .AND. cFile = Nil

      MsgStop( "I need a valid FILE/EXE name" )

      QUIT

   ENDIF

   IF cFile = Nil

      IF File( cExec )

         WinExec( cExec )

      ELSE

         ShellExecute( 0, "open", cExec, cFile, , 1 )

      ENDIF

   ELSE

      IF ( "www" $ cFile )

         ShellExecuteEx( cExec, cFile )

      ELSE

         IF File( cFile )

            IF lForce = Nil

               WinExec( cFile )

            ELSE

               ShellExecute( 0, "open", cExec, cFile, , 1 )

            ENDIF

         ELSE

            ShellExecute( 0, "open", cExec, cFile, , 1 )

         ENDIF

      ENDIF

   ENDIF

RETURN NIL

#pragma BEGINDUMP

#include <conio.h>
#include <windows.h>
#include <winbase.h>
#include <hbapi.h>

HB_FUNC( SHELLEXECUTEEX )

{

 SHELLEXECUTEINFO sei;

 sei.cbSize  = sizeof(sei);

 sei.fMask   = SEE_MASK_NOCLOSEPROCESS;

 sei.lpVerb  = "open";

 sei.lpFile  = hb_parc(2);

 sei.nShow   = SW_SHOW;

 if (ShellExecuteEx(&sei))
 {
 WaitForSingleObject(sei.hProcess,INFINITE);
 hb_retl(TRUE);
 }
 else
 {
  sei.lpFile  = hb_parc(1);
  sei.lpParameters = hb_parc(2);
  if (ShellExecuteEx (&sei))
  {
   WaitForSingleObject(sei.hProcess,INFINITE);
   hb_retl(TRUE);
  }
 }
}

#pragma ENDDUMP

// FIN / END
 

Verhoven wrote:Buenas tardes Antonio, vista tu respuesta me queda la duda de si la has redactado tu mismo o si es una respuesta de algún chatgpt.
Es solo una curiosidad.