diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8b9494a8aa..53bf5b5807 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,12 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-08-14 15:03 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/rtl/run.c + * harbour/source/rtl/hbrunfun.c + ! do not use system() command in __run() and hb_run() functions in + WinCE builds + 2009-08-14 14:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/rtl/hbproces.c ! hacked hb_processRun() to work in WinCE. diff --git a/harbour/source/rtl/hbrunfun.c b/harbour/source/rtl/hbrunfun.c index a60d1a0034..349c54fcc3 100644 --- a/harbour/source/rtl/hbrunfun.c +++ b/harbour/source/rtl/hbrunfun.c @@ -54,6 +54,7 @@ #include "hbapierr.h" #include "hbapigt.h" #include "hbapiitm.h" +#include "hbapifs.h" HB_FUNC( HB_RUN ) { @@ -65,12 +66,17 @@ HB_FUNC( HB_RUN ) if( hb_gtSuspend() == HB_SUCCESS ) { +#if defined( HB_OS_WIN_CE ) + iResult = hb_fsProcessRun( pszCommand, + NULL, 0, NULL, NULL, NULL, NULL, FALSE ); +#else char * pszFree; iResult = system( hb_osEncode( pszCommand, &pszFree ) ); if( pszFree ) hb_xfree( pszFree ); +#endif hb_gtResume(); } diff --git a/harbour/source/rtl/run.c b/harbour/source/rtl/run.c index 8b5ba27613..46ccd21aa4 100644 --- a/harbour/source/rtl/run.c +++ b/harbour/source/rtl/run.c @@ -54,6 +54,7 @@ #include "hbapierr.h" #include "hbapigt.h" #include "hbapiitm.h" +#include "hbapifs.h" /* TOFIX: The screen buffer handling is not right for all platforms (Windows) The output of the launched (DOS?) app is not visible. */ @@ -64,12 +65,17 @@ HB_FUNC( __RUN ) if( pszCommand && hb_gtSuspend() == 0 ) { +#if defined( HB_OS_WIN_CE ) + iResult = hb_fsProcessRun( pszCommand, + NULL, 0, NULL, NULL, NULL, NULL, FALSE ); +#else char * pszFree; if( system( hb_osEncode( pszCommand, &pszFree ) ) != 0 ) {} if( pszFree ) hb_xfree( pszFree ); +#endif if( hb_gtResume() != 0 ) {