Hi Bryan,
In a message dated 15-Dec-1997 00:05:52,
Bryan Smith wibbled about WinExecAndWait to All,
BS> In Delphi 1, we used to use a widely-circulated routine called
BS> WinExecAndWait, which would allow a parent process to spawn a child .EXE
BS> process, and then sit idle awaiting completion of the child process.
(i.e.
BS> standard DOS behaviour). Because WinExecAndWait made use of the
BS> GetModuleUsage function which is no longer available in 32-bit Delphi,
BS> WinExecAndWait can not be used in Delphi 3.
BS> Does anybody have an equivalent routine for 32-bit Delphis ?
Here is a project for Delphi 2/3 taken from the December 1996 issue
if The Delphi Magazine which has a couple of ways of doing what you
want
section 1/1 file runwait.zip [ Wincode v2.6.1 ]
begin 644 runwait.zip
M4$L#!!0``@`(`#I*0B&`$``,T"```+````4E5.05!052Y$1DV5T,M.
MPD`4!N!#"RURB6QTRTR
MDOH[Z(A/M3`SH($"HI9X8ZGW,YDQ6'AUR8!3\<4!;P
M)T3F,A]_4->TSX-XU\$38A3;?:N/663UB:`C=;\OGT.2AZ)'YR2,/"*NF3_6
M[G-+*"&*8*`6'I+0B%=55,O&/4NJIW9FK`ZO6V;+#I],,`L*+O=GD;-($SPT
M,\V`RAKLFO:V64W,\WTS7_:P6(PBB8A^86V`#%J^J!"%UF.TD/S0#UBI1UF$
MAUT1$*%!>CFN87:X)!X.=A1[6SG]2TDIY="YN+N<2=Z<$[_2P!+`1(V9E)R9
MZI'T.HG%VV38FQ5XO!ZVV)LQJURV!IA*J[;)TSFJN?X*
M_PJR-T'ZSR`["8)O4$L#!!0``@`(`"="0B&(&E8*CP```-T````*````4E5.
M05!0+D104BLHRD\O2LQ5""K-+D`4$L#!!0``@`(`$U+0B$(7>,;!P(``"0%```+````
M4E5.05!052Y005.-4TUKXS`0O0?R'^:PD*1X#?4QI8=NFI3"ED+CTK-L3Q)M
M9JM?3P4.NKJGJ\Z/?Z/:D]VH7(D3>U
M0]?O`3Q)79BUB^`.G1-+)&^^=8]>*O(F2CC'T(T5U4KF#!GMK>'#F;$EF6LI
ME%FZB(O-?3'Q5KEPG=]6R*@>=P"3E7&X;MB`\`IH7TYV-(V5Z\0\DQ]%=D
MJ#@L.(=@T@'_U-X;S:&-=P0G7;BR)L>BMKC+FRB9/P_GJ`NT%'R?_!NW'+8J%A6"DO47GAI]*&4
MI/63D+X1^_77`YS%U[.[-]X=-!$JQ2?TDN%2:J[;LA-/M<@4%C"^A-36I.VN
MUP_5?^)S7_J52)$.:/D5@M%(5GC@%X$@GYN,*08A"R7AK[]^XR\47(@]60A<*;0RW"\ZP..`;Z254IHQ@C0.EH#!`
M?XA/F^1/F)@)Y3`HY^VV49Q%(![HWPVG&\R#Y4&/4]SXJ)GPX(^B[DRT,[#)
ML?)'(]TEOQU**Z3#=FQ^U",Y60\6HC#H]"!HL9NREYS,7K*C+_F*OX:N!5%'LW#TUS\.:XC3`P``J@H```P```!254Y704E452Y005.M5MMNVS@0?0^0?QB@
M#Y%0K9!XT1<;*9IZY8V!-C$J!WT("H.11C:W,F605)SLU^_P(IF.W=NB"9*8
MY!G.Y9P9IA5D)P+AFBCXF\)F+LMG2
MA_Q9W6E>*VNCGS=H8'-SS7PED95P"84QBN9N'9OSC>2/3%LHP&0FFP*5&L+\
MFHFRQI&%M`\U+QRB:(32LBUT(V%,EVB,KE\:Q2.'W9C]LI4(V1,6K<81-(\H
M)2_=O2A*&RI`9@!7FTTF)=W;A9D]%;C1O!&QA56M*,S*Y&F!'\DI6^*,2;:.
M[,ZX*7$(4RK7$N4([,D0-YM6S7<7?,!\<+SGI9+VI<4V6S,09BB5?85U?
MS:8)T!5KIY"0RD`EZ?=H?4Q8K9"DUK&]
MRRATVBDD<.$3SJFB-=X^_(.%CCJW"9%<<6J4\.;?*)!')DT('U#LT&;C?5M5
M*(?`I&3/]^=I.GCSY@LT%8Q7S"&NY/+*'':8BS2]L(B9A_3Y=2F-9I86&<)"%XGT!UY:.G#K&%R2?4C'.?1&X7M'EE)19]68T
M'A\,9=XB]-S-Q'([J=G2MHT]G2SN%.:K9NNFN$=M=SL&J;8+LW%C0JV#T4G=
M5H%HM&\UGU-D&79R\K6"UW!&WZ]]R6*G`N?+?UDCVZM6$G9I?YD2S*8QZ!7Z
M)"7C"O=G=CWZ@_,*7M00(^I-A5Q)%O]3]-@T'R+?8'OT1_9ODWL\_/
M%R^"(T1G`=/9`=794:X-/N#;V'D"JX],?;74(2[,Y\5-,ZX;A>&HI!%'S4,@
M2HD>6*O"-'AW`>K-Q'1;/QVZVO7'M@9(_QVH%R-$=1AAE'-<1+U\P@IE3]$[
MDTC`]^]E/.2C_?"I^%]O9\^5Y?`[3UQ\2.Y$(MZ*.?VRXU^IN>GOP'4$L!`A0`%``"``@`.DI"(9SD\7-X`0``
MS0(```L``````````0`@`+:!`````%)53D%04%4N1$9-4$L!`A0`%``"``@`
M)T)"(8@:5@J/````W0````H``````````0`@`+:!H0$``%)53D%04"Y$4%)0
M2P$"%``4``(`"`!-2T(A"%WC&P<"```D!0``"P`````````!`"``MH%8`@``
M4E5.05!052Y005-02P$"%``4``(`"`",5D(A;C6EZ-,#``"J"@``#```````
M```!`"``MH&(!```4E5.5T%)5%4N4$%34$L%!@`````$``0`Y````(4(````
!````
`
end
sum -r/size 843/2431
section 1/1 file runwait.zip [ Wincode v2.6.1 ]
Bye,
__
(__ _ _ ___ ___
___)(_ (_) | |
Scott Clark
FidoNet: 2:250/266.2
E-Mail: scott@falihax.demon.co.uk
Web: www.falihax.demon.co.uk
--- Bonzo 1.3.3.0 #0006
---------------
* Origin: Frost Free BBS (2:250/366.2)
|