[*]Profan

Jac
de
Lad

Yo hätte gern el Befehl GetUsage zurück, Yo weiß no, si uno el con API nachbilden kann y halte ihn para relativ wichtig.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Gugma - es ya älter pero yo mi es para Funktionieren überredbar:
Kompilieren Marca Separación

Proc shellwait

    Parameters fle$
    Declare h&,cmd#,runnfo#,proxnfo#
    fle$:=shortname$(fle$)
    h&:=0

    if (fileexists(fle$))

        Dim cmd#,Add(Len(fle$),1);Dim proxnfo#,16;Dim runnfo#,68
        Clear runnfo#,proxnfo#;Long runnfo#,0=68;String cmd#,0=fle$

        if (external(KERNEL32,CreateProcessA,0,cmd#,0,0,0,0,0,0,runnfo#,proxnfo#))

            h&=Long(proxnfo#,0)
            clear proxnfo#;external(KERNEL32,GetExitCodeProcess,h&,proxnfo#)

            while (long(proxnfo#,0))

                settimer 100;waitinput;killtimer
                clear proxnfo#;external(KERNEL32,GetExitCodeProcess,h&,proxnfo#)

            wend

        endif

        Dispose cmd#
        Dispose runnfo#
        Dispose proxnfo#

    endif

    Return if(h&>0,1,0)

ENDPROC

Hierbei schaue Yo simplemente por GetExitCodeProcess - y warte así largo.

Jac
de
Lad

Ist el sicher? Wenn sí, kann Roland el tal vez profanintern einbauen, damits más rápido se (sólo el Abfrage des ExitCodes).

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Yo mi el es sicher.

Sebastian
König

Tatsächlich puede ser auch simplemente el Handle des erzeugten Prozesses direkt a WaitForSingleObject() transferencia...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Yo dar a, og Code es schlimm. Dieser war para Testen como.

Der Tip con WaitForSingleObject es natürlich klasse!

Sebastian
König

Noch una más rápido Apéndice: Um el Ventana el wartenden Anwendung no einfrieren que se (si el Wartezeit dafür lang genug ser kann) debería uno evtl. mejor MsgWaitMultipleObjects() uso, wobei entonces el Aufruf por desgracia, no mehr así schön simplemente es...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Jac
de
Lad

Zum Ejemplo, si uno während el aufgerufene Prog werkelt no waiten voluntad, pero qué más hacer voluntad oder si el aufgerufene Prog sólo una cierto Tiempo aktiv ser se y en Zeitüberschreitung abgeschossen voluntad se oder...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

RGH

... y qué spricht gegen el Einsatz el para derartige Zwecke eingeführten XProfan-Función WinExecWait?

Saludo
Roland

Tal vez el hecho de, que seculares entonces wirklich wartet y a nichts más a gebrauchen es, während uno con el otro Solución el Programa weiteragieren dejar kann y zwischendurch veces checkt, si qué geändert ha...

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

RGH

Jörg Sellmeyer

RGH

... y qué spricht gegen el Einsatz el para derartige Zwecke eingeführten XProfan-Función WinExecWait?

Saludo
Roland

¡Hola Jörg,
mein Einwurf bezog se en iFs Función ShellWait. Diese macht - si yo ellos bastante verstehe - exakt el, qué auch mein WinExecWait macht.
Aunque puede ser el Elemente dieser Procedimiento natürlich genau a el uso, qué Usted vorschwebt.
Tal vez fällt me para XProfan 2008 todavía qué a una ...

Saludo
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

Jac
de
Lad

Naja, Yo bin me sicher, dass Roland el intern esta belässt.

@Roland: Was sagst du a GetUsage?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

19.09.2007 ▲