HMGforum.com

Code: Select all

dim path, WshShell
path = "C:\hmg.3.4.3\SAMPLES\Applications\CONTACTOS\contactos.exe"

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(path)) Then
   msgBox path & " exists."
Else
   msgBox path & " doesn't exist."
End If


Set WshShell = WScript.CreateObject("WScript.Shell")
Do
If fso.FileExists(path) Then

  			RetVal = WshShell.Run( path, 1, True)
	Else
  			RetVal = 255
	End If
Loop Until True '(RetVal = 0 )
WScript.echo "Errorlevel on return was:", RetVal
MsgBox "How to change errorlevel on HMG-programs exit?" & vbCrLf & "using errorleve(errnum) ( as in pure harbour) do not work on my tests :-("

Code: Select all

#include <hmg.ch>

Function Main

Local nErrorLevel:=0

    DEFINE WINDOW main AT 144 , 426 WIDTH 163 HEIGHT 242 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MAIN CURSOR NIL ON INIT Nil ;
		ON RELEASE (nErrorLevel:=main.RadioGroup_1.value - 1, msgbox( 'nErrorLevel:='+hb_ValToSTR(nErrorLevel), 'On Release') , ExitProcess ( nErrorLevel )) ;
		ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE RADIOGROUP RadioGroup_1
        ROW    20
        COL    30
        WIDTH  120
        HEIGHT 100
		OPTIONS { 'ErrorLevel 0', 'ErrorLevel 1', 'ErrorLevel 2' , 'ErrorLevel 3'}
        VALUE 1
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        SPACING 25
        BACKCOLOR Nil
        FONTCOLOR Nil
        READONLY Nil
        HORIZONTAL .F. 
    END RADIOGROUP

    DEFINE BUTTON Button_1
        ROW    140
        COL    20
        WIDTH  100
        HEIGHT 28
        ACTION ThisWindow.Release
        CAPTION "Release"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

END WINDOW

Main.Center
Main.Activate

Return

Code: Select all

@ECHO OFF
call demo.exe
ECHO ERROLEVEL=%ERRORLEVEL%
PAUSE

IF ERRORLEVEL 3 GOTO Err3
IF ERRORLEVEL 2 GOTO Err2
IF ERRORLEVEL 1 GOTO Err1
IF ERRORLEVEL 0 GOTO Err0
GOTO END

:Err0
ECHO Run for ErrorLevel=0
GOTO END

:Err1
ECHO Run for ErrorLevel=1
GOTO END

:Err2
ECHO Run for ErrorLevel=2
GOTO END

:Err3
ECHO Run for ErrorLevel=3
GOTO END

:END
ECHO End Of Batch
PAUSE