XProfan

English

E.T.

i want this issue here again aufgreifen, there me these function some vereinfachen would. I bekomm my Program simply not moreover, the value behind END one aufgerufenen Program To get.

given: Program, which one other aufruft and hereon wait:

Compile Mark Separation

Declare Pid&, rc%
cls
pid& = @WinExec(maintest.exe,1)

Repeat

    rc% = @GetExitCode(pid&)
    print Return,rc%,($;@hex$(rc%);)
    sleep 100

Until rc% <> 259

waitinput
End

and the program, which called becomes (maintest.exe)

Compile Mark Separation

window 30,200
sleep 2000
End 16

as long as the aufgerufene Program runs, comes The 259 back.
becomes the aufgerufene Program exits (or exits itself How in the Bsp. self), comes at aufrufenden Program a 7- or 8-stellige number on, but not The 16

.

unfortunately could here [...]

not helped go, therefore Please I again circa Mithilfe.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look: [...]

02/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

If ichaber The Help XProfan correctly. understand (what indeed not always the case is), then ought to the still one XProfan-Prog without externe Help can.
If the not so is, would Yes The function futile. (or one bow ??)

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

very, one bow, thatswhy Workaround.

I shift time to future...

02/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hi,

in the momentum be I here something ratlos.
END n% functions, How one slight to check on can, if to the others Program with WinExecWait launch or in a Batch- or. CMD-File whom Errorcode abfragt.
the GetExitCode(Pid&) functions on itself too, though shining The Pid& to End of program only very terminable validly To his, so that then one falser worth zurückgegeben becomes. (The function GetExitCode() screen presently unfortunately not yet, whether The Pid& yet validly is. the ought to I in the next XProfan-Version yet install and then z.B. -1 give back.)

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

02/10/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

exists the XProfan-Process to that Time the with Return Value terminate want from only one Thread?

02/10/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

exists the XProfan-Process to that Time the with Return Value terminate want from only one Thread?

by me already.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02/10/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Rohland

User Messages could you help...

In my proposition wished I with the Return Value of < end n% > really to check on, whether the aufgerufene Program itself ordnungsgemäß exits has, or z.B. with Taskmanager or through Shutdown/ Log off downed watts. there this not funktionierte, have I once more with the User Messages befaßt. so could You in example:
- not only a, separate two ( with Use of Memory-Variables/ Strings even yet More )
Rückgabewerte receive
- the normal Closing the Fensters your maintest.exe check/ prevent.
- Shutdown/ Log off discern, discern or prevent.
- in sinnvoller combination with < Getexitcode(Pid&)>, < Winexec > your maintest.exe to supervise and
possibly restart etc.

for your object (only Return Value with termination of maintest.exe) could You this Source use:

Starter.exe

Compile Mark Separation

Declare Pid&,end%
usermessages 1001
cls
Pid& = WinExec(maintest.exe +st$(%hwnd),1) lever the own Mainwindow as
Parameter übergeben

whilenot end%

    waitinput

    if %Umessage = 1001     Message of maintest.exe, Return Value 16 in &UwParam

        print Return Value of maintest.exe:  +st$(&UwParam)
        possibly maintest.exe on Programmbeendigung testing
        sleep 100         maintest yet one little Time to that terminate let...
        case GetExitCode(Pid&) <> 259 : print maintest.exe is exits...

    elseif %key = 2

        end% = 1

    endif

endwhile

End

maintest.exe

Compile Mark Separation

declare startwin&
startwin& = val(par$(1))   Fensterhandle the aufrufenden Program
window 30,200
sleep 2000
sendmessage(startwin&,1001,16,0)   in the aufrufenden Program defined User Message
wParameter is Return Value 16...
end