[*]Profan

Jac
de
Lad

je hätte gern den Befehl GetUsage zurück, je ne sais pas, si on den avec API nachbilden peux et halte ihn pour relativ important.

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 - ist déjà älter mais je mon c'est zum marcher überredbar:
Kompilieren Marque Séparation

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 je simple per GetExitCodeProcess - et attends so longtemps.

Jac
de
Lad

Ist cela sûrement? si oui, peux Roland cela peut-être profanintern einbauen, damits plus rapide wird (seulement qui 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

je mon c'est sûrement.

Sebastian
König

réellement peux on aussi simple cela Handle des erzeugten Prozesses direct à WaitForSingleObject() transfert...

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

Alte Profan²-Seite: [...]

je gebe trop, og Code ist grave. cette était zum Testen là.

qui Tip avec WaitForSingleObject ist naturellement super!

Sebastian
König

encore un plus rapide Nachtrag: Um qui la fenêtre qui wartenden Anwendung pas frigorifier trop laisser (si qui Wartezeit pour long genug son peux) sollte on peut-être. besser MsgWaitMultipleObjects() verwenden, wobei ensuite qui Aufruf malheureusement pas plus so joli simple ist...

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

Alte Profan²-Seite: [...]

Jac
de
Lad

Zum Beispiel, si on au cours de cela aufgerufene Prog werkelt pas waiten veux, mais quoi d'autre faire veux ou bien si cela aufgerufene Prog seulement une bestimmte Zeit aktiv son soll et chez Zeitüberschreitung abgeschossen volonté soll ou bien...

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

... et quoi spricht vers den Einsatz qui pour derartige Zwecke eingeführten XProfan-Funktion WinExecWait?

Salut
Roland

peut-être qui Tatsache, qui Profan ensuite wirklich wartet et trop rien plus trop gebrauchen ist, au cours de on avec qui anderen Solution cela Programme weiteragieren laisser peux et zwischendurch la fois checkt, si sich quoi geändert hat...

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

RGH

Jörg Sellmeyer

RGH

... et quoi spricht vers den Einsatz qui pour derartige Zwecke eingeführten XProfan-Funktion WinExecWait?

Salut
Roland

allô Jörg,
mon Einwurf bezog sich sur iFs Funktion ShellWait. cet pouvoir - si je vous droite verstehe - exakt cela, quoi aussi mon WinExecWait pouvoir.
Allerdings peux on qui Elemente cette Procédure naturellement oui c'est ca trop dem verwenden, quoi Dir vorschwebt.
peut-être fällt mir pour XProfan 2008 encore quoi en supplément un ...

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

Jac
de
Lad

bof, je suis mir sûrement, dass Roland cela interne dabei belässt.

@Roland: quoi sagst du trop 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 ▲