/*
   bh_Run.ch
   Exécuter un programme avec options.

   Plante si on ne passe pas la bonne commande.
   Exemple Dos : 'cmd /K <Command1> &<Commande2> ... &<CommandN> &exit'

   #include "bh_Run.ch" // Exécuter un programme avec options.

   Dernière modification : 2022-10-28
   <web>http://bernard.mouille.free.fr/Harbour/bh_Run.txt</web>
*/

#ifndef _bh_Run_ch_
#define _bh_Run_ch_

procedure bh_Run( cCommand, nDisplay, lStop )

   if lStop == nil
      lStop := .T.
   endif
   if nDisplay == nil
      nDisplay := 1
   endif

   win_oleCreateObject( "WScript.Shell" ):Run( cCommand, nDisplay, lStop )

   return

#endif // _bh_Run_ch_

/*
// Test.prg
// Test du module bh_Run.ch.

#include "bh_ErrorSysCons.ch" // Gestion de l'affichage des erreurs de programme dans Harbour.
#include "bh_Run.ch"          // Exécuter un programme avec options.

procedure Main

   // ANSI ( Windows ) en français.
   request HB_LANG_FR
   request HB_CODEPAGE_FRWIN
   hb_cdpSelect( 'FRWIN' )
   hb_langSelect( 'FR' )

   // Taille de la console.
   setmode( 43, 80 )
   setcolor( "GR+/B" )
   @ 0, 0, maxrow(), maxcol() box space( 9 )
   setcolor( "W/B" )

   bh_Run( "cmd /K dir *.* & pause &exit", 1, .T. )
   wait

   bh_Run( "Notepad.exe", 1, .T. )
   wait

   return
*/

/*
# Test.hbp : Instructions de compilation Harbour.

# Nom de l'exe crée.
-oTest

# Ne crée pas l'exe en cas de Warning.
-w3
-es2

# Ajout de chemin(s) pour include ( fichiers Harbour .h et .ch ).
-iC:\BhPrg\_Lib\bh

# Programme(s) à compiler.
Test.prg

# Librairies : respecter l'ordre.
-lhbwin
*/