On Mon, Dec 27, 2010 at 10:00 PM, Demosthenes Koptsis
<[email protected]> wrote:

>  hProcess1 = SHELL sCommand FOR INPUT AS "AntiVirRun"
>  WHILE (hProcess1.Running)
>  WAIT 10
>  WEND
This does work but is slow, potentially pointless wait of nine seconds
at the end.

Instead you could split this function into two:

   hProcess1 = SHELL sCommand FOR INPUT AS "AntiVirRun
End

Private Sub Continue_The_Function()

    .. . . . whatever you where doing


Then use AntiVirRun_Kill event to call the continue function when the
process ends.

Ian

------------------------------------------------------------------------------
Learn how Oracle Real Application Clusters (RAC) One Node allows customers
to consolidate database storage, standardize their database environment, and, 
should the need arise, upgrade to a full multi-node Oracle RAC database 
without downtime or disruption
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to