XProfan

Français

E.T.

je voudrais cet Thema ici nochmal aufgreifen, là mir cet Funktion einiges simplifier serait. je bekomm mon Programme simple pas en supplément, la valeur derrière FIN eines aufgerufenen Programms trop bekommen.

Gegeben: Programme, welches un d'autre aufruft et puis wartet:

Kompilieren Marque Séparation

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

Repeat

    rc% = @GetExitCode(pid&)
    imprimer Retour,rc%,($;@hex$(rc%);)
    sleep 100

Until rc% <> 259

waitinput
Fin

et cela Programme, welches aufgerufen wird (maintest.exe)

Kompilieren Marque Séparation

window 30,200
sleep 2000
Fin 16

Solange cela aufgerufene Programme fonctionne, venez qui 259 zurück.
Wird cela aufgerufene Programme finissez (ou bien finissez sich comment im Bsp. selbst), venez beim aufrufenden Programme une 7- ou bien 8-stellige numéro à, mais pas qui 16

.

malheureusement konnte ici [...]

pas geholfen volonté, tout autor s'il te plaît je nochmal um 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...

08.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

exposition: [...]

08.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

si ichaber qui Aider trop XProfan richtig verstehe (quoi oui aussi pas toujours qui le cas ist), ensuite sollte cela doch un XProfan-Prog sans externe Aider peut.
si dem pas so ist, wäre oui qui Funktion sinnlos. (ou bien un Bug ??)

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...

08.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui c'est ca, un Bug, tambour Workaround.

je verschiebe la fois pour künftige...

08.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Salut,

im Moment suis je ici quelque chose perplexe.
FIN n% funktioniert, comment on léger überprüfen peux, si on l'autre Programme avec WinExecWait startet ou bien dans einer Batch- bzw. CMD-Dossier den Errorcode abfragt.
cela GetExitCode(Pid&) funktioniert à sich aussi, allerdings scheint qui Pid& pour Programmende seulement très begrenzt gültig trop son, so dass ensuite un falscher Wert retour wird. (qui Funktion GetExitCode() überprüft derzeit malheureusement encore pas, si qui Pid& encore gültig ist. cela sollte je dans qui prochain XProfan-Version encore einbauen et ensuite z.B. -1 zurückgeben.)

Salut
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

10.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Besteht qui XProfan-Prozess zum la date des avec Rückgabewert finissons voulons aus seulement einem Fil?

10.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

Besteht qui XProfan-Prozess zum la date des avec Rückgabewert finissons voulons aus seulement einem Fil?

chez mir déjà.

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...

10.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andre
Rohland

Usermessages pourrait Dir aider...

dans meinem projet voulais je avec dem Rückgabewert de < end n% > eigentlich überprüfen, si cela aufgerufene Programme sich ordnungsgemäß finissez hat, ou bien z.B. avec Taskmanager ou bien par Herunterfahren/ Annuler abgeschossen wurde. là ca pas funktionierte, habe je mich encore einmal avec den Usermessages befaßt. avec cela könntest Du beispielsweise:
- pas seulement une, mais deux ( chez Nutzung de Bereichsvariablen/ Cordes sogar encore plus )
Rückgabewerte conservé
- cela normale Schließen des Fensters Deiner maintest.exe feststellen/ verhindern.
- Herunterfahren/ Annuler erkennen, unterscheiden ou bien verhindern.
- dans sinnvoller Kombination avec < Getexitcode(Pid&)>, < Winexec > Votre maintest.exe surveiller et
peut-être récente starten usw.

Pour Deinen Zweck (seulement Rückgabewert chez Beendigung de maintest.exe) könntest Du cette Quellcode verwenden:

Starter.exe

Kompilieren Marque Séparation

Déclarer Pid&,ende%
usermessages 1001
cls
Pid& = WinExec(maintest.exe +str$(%hwnd),1) Handle des eigenen Hauptfensters comme
paramètre übergeben

whilenot ende%

    waitinput

    si %Umessage = 1001     Message de maintest.exe, Rückgabewert 16 dans &UwParam

        imprimer Rückgabewert de maintest.exe:  +str$(&UwParam)
        peut-être maintest.exe sur Programmbeendigung testen
        sleep 100         maintest encore un wenig Zeit zum finissons ... Laissez-
        cas GetExitCode(Pid&) <> 259 : imprimer maintest.exe ist finissez...

    elseif %clé = 2

        ende% = 1

    endif

endwhile

Fin

maintest.exe

Kompilieren Marque Séparation

declare startwin&
startwin& = val(par$(1))   Fensterhandle des aufrufenden Programms
window 30,200
sleep 2000
sendmessage(startwin&,1001,16,0)   Im aufrufenden Programme definierte Usermessage
wParameter ist Rückgabewert 16...
end

Salut
André

11.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

c'est korrigiert worden. si cela Programme sich pour Sleep 2000 selbst finissez, venez -1. si je Sleep 2000 par waitinput ersetze, venez pour Klick 16 à.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...