Re: [BLACKBOX] HostDialog.Start

From: [at]} <Chris>
Date: Tue, 25 Aug 2009 22:36:26 +0930

----boundary-LibPST-iamunique-2026688753_-_-
Content-type: text/plain

        From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
Thomas
        Sent: Monday, 24 August 2009 8:50 PM
        To: BLACKBOX{([at]})nowhere.xy
        Subject: [BLACKBOX] HostDialog.Start
        
        
        Hello BlackBox World,
         
          there is a procedure Start in HostDialog to start a new Windows
program from a CP program. Is there any way of telling when the new program
terminates?
         
        Thanks
         
        Andrew

----------------------------------------

Hi Andrew,

Normally you would need access to information that is stored in local
variables in HostDialog.Start to be able to tell when the new program
terminates.

The following is some experimental code which I originally posted to this
mailing list in Jan 2007. The function Create launches a new process using
Win.CreateProcess (as does HostDialog.Start) and then calls
Win.WaitForSingleObject every 100ms until the new program terminates. It is
in a very rough and ready state but it should be enough to get you started.

A simple test program is:

MODULE TestProcess;

IMPORT StdLog, CfbProcess;

PROCEDURE Run*;
BEGIN
  CfbProcess.Create("C:\\Windows\\System32\\Notepad.exe", "");
  StdLog.String("Finished");
  StdLog.Ln()
END Run;

END TestProcess.

--------------------------------------------------------

Regards,

Chris Burrows
CFB Software
Armaide v2.1: ARM Oberon-07 Development System
http://www.cfbsoftware.com/armaide

--------------------------------------------------------
CFBProcess:
 
StdCoder.Decode E7rPXJqQntmPYB4.,0 1Ak...xf....58FTuPE,5TWyqlKrqKKrGrtumdGL
 mGorCquU2hgnRAXDFTvMUn7FTvMf1G2sETfPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFW
 UkTeoxhmhgnpZHZijJC7ONbvM0.,.S.eL3U.QklbcjRAktgdjZgZZh2hgnlsDor.kay4.qorGq
 mQiig76FUHZijJCbnWmqmqKWKqtcw7.,.FS0A,0EUb.0E.cUGpmWLuOpoKqvCbHZiYpedhA704
 TeKKw.bHfEWUmL.6..D.JP0E.CcIhgsNHT9N9ntQ8qorG4704D.CbB,708T1U.EuS.T.Nv,2U.
 2.Yx,U00.bnUGLu8ro8quGrmCLWKqtE0E.kHU.EBU.U,U.I3l6w1.0ES9.o.AU0KyB.,UpA.6.
 e,0E.k.0.e0.,6Y1.y.o.AUGU.g.AUD,T.16,6.5.u,g.s.6.Um.3.16H6.5.1c.6.US.D.4.0
 E,k.800k,UbU.g.AUhU.o.AU3.5.1M3E2k.S00k,k.4.I.s66.UMU.I.c76.k.K,.u.0k1k.OD
 I.AU9W.g.AU1.B.y3g.c6c.3gwP.,6..EBE.0.4E.EJ2wAC.6.V2A.AUkE.8k.Up2.0k,k.e..
 q.yzayIWKJaKIECIn8Kc8rrCqmCrtin4qk2aoa0pb8Je0mfaKr0GRqHESpouqU0roin4qk2Cob
 uodGp4ak2uqr8rq4Kq0Jtaqr8roGrw0mS0mfaaiodDJeBBcAxfEJe7xdGBdIBfTRcABcHRevgV
 7AVoJiphgUgbU.deIfOFrN1HM1H6IZuH5OF7OJZOF,7IZvP51PONbvQ1vN9vQrN1oe,JeUghnx
 gu2YLBhiNHbuFr76ZPNbfC,NGR8J9uF9eIrN1HcE9uFHeHPM0HsJFOGNOF,tJHXEhgZRhBhgn,
 FNPbvNN76V79,7AN,SpokayJdKoayIfKoI0mF0GM0GWyo4ak2aEtKqt0GRqHEUIJiVphnZhVZi
 ZhdZRin,M8rN1HM0..7OOb9Q19R59OPONbvQMEFNPbXBAV7gcCZcBAV3p7,7IZvP.Unl428.we
 dtIdfQ,78HeH,7Sp761eIZOEn86TeF,tEFOEZO8p76jOOuGcGLtCJe8pRqk2aEfM1HM0H6Qp76
 VuHHeHdOFZ86duH,NEZeI.b8GTeIduEFOEin4I6.ROFj88V99,7H9eHF7S7N8,t8,NAHtCPM00
 Lj0GRqXH3dDFIWLGamRqk2Ie3ZeJJeC3YkpfBAV3p7SpoQ8in4qk2.U1JiZBgohge2YcAgk3iC
 Bghhgg2YkBgmBghhgohgmRiu2Y,J8aZDlVkIin4aEf42QiZRgpJidZitJbUw8umdKoVKJdaIea
 Z,ZeIJe7JcJZe3RevM0CLu4KtGLR0mfa4GpU8JeKJcaIbOobin4aUkJijRAAdipgjJbUw82eGx
 d1tIbuLHeHBuHZOHGpYyIbin4ak24Ks0LdKLruqouqneHEa2S2EtcC.U0,A,91c9R9H9fPD9RF
 96pND,lYepWWmfaKrQe3,..amRqU7QC.8qYuKoKKtaa6BgiZgghgUIbx2YoJiphgvgV7.kwYhk
 ReZRgp,7ONbHtaKsGrr8LEenS2avgV7A,d1RtM396pNDC3.G3.amRq..7vRB8P1vNb96pNDS3.
 BuLfuI9uIFuHjuJHeH7uHjuCPM0.SrdWqrSrfaKrGqrSLEenS.SpjWoYGoWin4aU7pcUwedlV8
 rm44VeQTvM68jOORvI2ZV3ik,H79,tJH1wYUwYUQZU2iVJCYCAZg2YnhgXhC69,tQ.6RZPRmGE
 uqr8rq..0HKod7Zdg2YnZiVJCN76VfQT1a2aGEqHEGLt66d8G9eHPM0aEd2e3BcIhV7AV7AVV,
 R10GRq1oZLBgdZi4xhmRedphbZhZxdWJhZRgo3ZkJij,ELWKc8rrUg2Yl2akAZvg,ak20Jty4g
 7.A,KJbGpYmIEWmk0bG,s6,tJHfPAc7ZeTZe7hd3xdJZedQ5cQ22.58PTvQ99G1fP7Xc2imxBM
 G..H,.....A7EeWKtKqkGqIqk2a.qU3FECItK4in4qkWuIWcN31ELqE,5TeK45uPR9RZvPN9P9
 fQbf9b8RCIu8LqGomCrl0ks,.ELCoruKu.GomCrl0U1VVlm85Et...ktu0.Y62Um1,.d.,.HE.
 2U..U,Iklb8IepZhZJinpZHFdKLq6F6.XDJ.QiiIepZhZ7F6.Zz.6.,UfW5UXW.2.52.CLLC3b
 8Rn9P99F9vQ0ks,Uikwm46.Zz,0E.2.U6UOF.0E.cU.UiAcoZC.70,E0E...7,,M.,.,.,tcp0
 0kXat.wnjl.k.E.0.3gwPE.6..EBU.U,.J,U.2m,.,.E4WDN.Ntarm3Wj.Jklb6.Qcj,.E6E..
 .F.,.mE.0U.2kLRC4mF3kwL,,AzJE.iJoYpY2H.nf1...
 --- end of encoding ---
 

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-2026688753_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFx0YWIgRnJvbTogQmxhY2tCb3ggW21haWx0bzpC
TEFDS0JPWEBMSVNUUy5PQkVST04uQ0hdIE9uIEJlaGFsZiBPZiBBbmRyZXdccGFyDQpUaG9tYXNc
cGFyDQpcdGFiIFNlbnQ6IE1vbmRheSwgMjQgQXVndXN0IDIwMDkgODo1MCBQTVxwYXINClx0YWIg
VG86IEJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSFxwYXINClx0YWIgU3ViamVjdDogW0JMQUNLQk9Y
XSBIb3N0RGlhbG9nLlN0YXJ0XHBhcg0KXHRhYiBccGFyDQpcdGFiIFxwYXINClx0YWIgSGVsbG8g
QmxhY2tCb3ggV29ybGQsXHBhcg0KXHRhYiAgXHBhcg0KXHRhYiAgIHRoZXJlIGlzIGEgcHJvY2Vk
dXJlIFN0YXJ0IGluIEhvc3REaWFsb2cgdG8gc3RhcnQgYSBuZXcgV2luZG93c1xwYXINCnByb2dy
YW0gZnJvbSBhIENQIHByb2dyYW0uIElzIHRoZXJlIGFueSB3YXkgb2YgdGVsbGluZyB3aGVuIHRo
ZSBuZXcgcHJvZ3JhbVxwYXINCnRlcm1pbmF0ZXM/XHBhcg0KXHRhYiAgXHBhcg0KXHRhYiBUaGFu
a3NccGFyDQpcdGFiICBccGFyDQpcdGFiIEFuZHJld1xwYXINClxwYXINCi0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpIaSBBbmRyZXcsXHBhcg0KXHBh
cg0KTm9ybWFsbHkgeW91IHdvdWxkIG5lZWQgYWNjZXNzIHRvIGluZm9ybWF0aW9uIHRoYXQgaXMg
c3RvcmVkIGluIGxvY2FsXHBhcg0KdmFyaWFibGVzIGluIEhvc3REaWFsb2cuU3RhcnQgdG8gYmUg
YWJsZSB0byB0ZWxsIHdoZW4gdGhlIG5ldyBwcm9ncmFtXHBhcg0KdGVybWluYXRlcy4gXHBhcg0K
XHBhcg0KVGhlIGZvbGxvd2luZyBpcyBzb21lIGV4cGVyaW1lbnRhbCBjb2RlIHdoaWNoIEkgb3Jp
Z2luYWxseSBwb3N0ZWQgdG8gdGhpc1xwYXINCm1haWxpbmcgbGlzdCBpbiBKYW4gMjAwNy4gVGhl
IGZ1bmN0aW9uIENyZWF0ZSBsYXVuY2hlcyBhIG5ldyBwcm9jZXNzIHVzaW5nXHBhcg0KV2luLkNy
ZWF0ZVByb2Nlc3MgKGFzIGRvZXMgSG9zdERpYWxvZy5TdGFydCkgYW5kIHRoZW4gY2FsbHNccGFy
DQpXaW4uV2FpdEZvclNpbmdsZU9iamVjdCBldmVyeSAxMDBtcyB1bnRpbCB0aGUgbmV3IHByb2dy
YW0gdGVybWluYXRlcy4gSXQgaXNccGFyDQppbiBhIHZlcnkgcm91Z2ggYW5kIHJlYWR5IHN0YXRl
IGJ1dCBpdCBzaG91bGQgYmUgZW5vdWdoIHRvIGdldCB5b3Ugc3RhcnRlZC4gXHBhcg0KXHBhcg0K
QSBzaW1wbGUgdGVzdCBwcm9ncmFtIGlzOlxwYXINClxwYXINCk1PRFVMRSBUZXN0UHJvY2Vzcztc
cGFyDQpccGFyDQpJTVBPUlQgU3RkTG9nLCBDZmJQcm9jZXNzO1xwYXINClxwYXINClBST0NFRFVS
RSBSdW4qO1xwYXINCkJFR0lOXHBhcg0KICBDZmJQcm9jZXNzLkNyZWF0ZSgiQzpcXFxcV2luZG93
c1xcXFxTeXN0ZW0zMlxcXFxOb3RlcGFkLmV4ZSIsICIiKTtccGFyDQogIFN0ZExvZy5TdHJpbmco
IkZpbmlzaGVkIik7XHBhcg0KICBTdGRMb2cuTG4oKVxwYXINCkVORCBSdW47XHBhcg0KXHBhcg0K
RU5EIFRlc3RQcm9jZXNzLiBccGFyDQpccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KXHBh
cg0KQ2hyaXMgQnVycm93c1xwYXINCkNGQiBTb2Z0d2FyZVxwYXINCkFybWFpZGUgdjIuMTogQVJN
IE9iZXJvbi0wNyBEZXZlbG9wbWVudCBTeXN0ZW1ccGFyDQpodHRwOi8vd3d3LmNmYnNvZnR3YXJl
LmNvbS9hcm1haWRlXHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpDRkJQcm9jZXNzOlxwYXINCiBccGFyDQpTdGRD
b2Rlci5EZWNvZGUgRTdyUFhKcVFudG1QWUI0LiwwIDFBay4uLnhmLi4uLjU4RlR1UEUsNVRXeXFs
S3JxS0tyR3J0dW1kR0xccGFyDQogbUdvckNxdVUyaGduUkFYREZUdk1VbjdGVHZNZjFHMnNFVGZQ
ZFBNSGZQOWZRYmY5aE9POXZSN09OYnZNb2VkaGdyUmlpb2VkRldccGFyDQogVWtUZW94aG1oZ25w
WkhaaWpKQzdPTmJ2TTAuLC5TLmVMM1UuUWtsYmNqUkFrdGdkalpnWlpoMmhnbmxzRG9yLmtheTQu
cW9yR3FccGFyDQogbVFpaWc3NkZVSFppakpDYm5XbXFtcUtXS3F0Y3c3LiwuRlMwQSwwRVViLjBF
LmNVR3BtV0x1T3BvS3F2Q2JIWmlZcGVkaEE3MDRccGFyDQogVGVLS3cuYkhmRVdVbUwuNi4uRC5K
UDBFLkNjSWhnc05IVDlOOW50UThxb3JHNDcwNEQuQ2JCLDcwOFQxVS5FdVMuVC5OdiwyVS5ccGFy
DQogMi5ZeCxVMDAuYm5VR0x1OHJvOHF1R3JtQ0xXS3F0RTBFLmtIVS5FQlUuVSxVLkkzbDZ3MS4w
RVM5Lm8uQVUwS3lCLixVcEEuNi5ccGFyDQogZSwwRS5rLjAuZTAuLDZZMS55Lm8uQVVHVS5nLkFV
RCxULjE2LDYuNS51LGcucy42LlVtLjMuMTZINi41LjFjLjYuVVMuRC40LjBccGFyDQogRSxrLjgw
MGssVWJVLmcuQVVoVS5vLkFVMy41LjFNM0Uyay5TMDBrLGsuNC5JLnM2Ni5VTVUuSS5jNzYuay5L
LC51LjBrMWsuT0RccGFyDQogSS5BVTlXLmcuQVUxLkIueTNnLmM2Yy4zZ3dQLiw2Li5FQkUuMC40
RS5FSjJ3QUMuNi5WMkEuQVVrRS44ay5VcDIuMGssay5lLi5ccGFyDQogcS55emF5SVdLSmFLSUVD
SW44S2M4cnJDcW1DcnRpbjRxazJhb2EwcGI4SmUwbWZhS3IwR1JxSEVTcG91cVUwcm9pbjRxazJD
b2JccGFyDQogdW9kR3A0YWsydXFyOHJxNEtxMEp0YXFyOHJvR3J3MG1TMG1mYWFpb2RESmVCQmNB
eGZFSmU3eGRHQmRJQmZUUmNBQmNIUmV2Z1ZccGFyDQogN0FWb0ppcGhnVWdiVS5kZUlmT0ZyTjFI
TTFINkladUg1T0Y3T0paT0YsN0ladlA1MVBPTmJ2UTF2Tjl2UXJOMW9lLEplVWdobnhccGFyDQog
Z3UyWUxCaGlOSGJ1RnI3NlpQTmJmQyxOR1I4Sjl1RjllSXJOMUhjRTl1RkhlSFBNMEhzSkZPR05P
Rix0SkhYRWhnWlJoQmhnbixccGFyDQogRk5QYnZOTjc2Vjc5LDdBTixTcG9rYXlKZEtvYXlJZktv
STBtRjBHTTBHV3lvNGFrMmFFdEtxdDBHUnFIRVVJSmlWcGhuWmhWWmlccGFyDQogWmhkWlJpbixN
OHJOMUhNMC4uN09PYjlRMTlSNTlPUE9OYnZRTUVGTlBiWEJBVjdnY0NaY0JBVjNwNyw3SVp2UC5V
bmw0Mjgud2VccGFyDQogZHRJZGZRLDc4SGVILDdTcDc2MWVJWk9Fbjg2VGVGLHRFRk9FWk84cDc2
ak9PdUdjR0x0Q0plOHBScWsyYUVmTTFITTBINlFwNzZccGFyDQogVnVISGVIZE9GWjg2ZHVILE5F
WmVJLmI4R1RlSWR1RUZPRWluNEk2LlJPRmo4OFY5OSw3SDllSEY3UzdOOCx0OCxOQUh0Q1BNMDBc
cGFyDQogTGowR1JxWEgzZERGSVdMR2FtUnFrMkllM1plSkplQzNZa3BmQkFWM3A3U3BvUThpbjRx
azIuVTFKaVpCZ29oZ2UyWWNBZ2szaUNccGFyDQogQmdoaGdnMllrQmdtQmdoaGdvaGdtUml1Mlks
SjhhWkRsVmtJaW40YUVmNDJRaVpSZ3BKaWRaaXRKYlV3OHVtZEtvVktKZGFJZWFccGFyDQogWixa
ZUlKZTdKY0paZTNSZXZNMENMdTRLdEdMUjBtZmE0R3BVOEplS0pjYUliT29iaW40YVVrSmlqUkFB
ZGlwZ2pKYlV3ODJlR3hccGFyDQogZDF0SWJ1TEhlSEJ1SFpPSEdwWXlJYmluNGFrMjRLczBMZEtM
cnVxb3VxbmVIRWEyUzJFdGNDLlUwLEEsOTFjOVI5SDlmUEQ5UkZccGFyDQogOTZwTkQsbFllcFdX
bWZhS3JRZTMsLi5hbVJxVTdRQy44cVl1S29LS3RhYTZCZ2laZ2doZ1VJYngyWW9KaXBoZ3ZnVjcu
a3dZaGtccGFyDQogUmVaUmdwLDdPTmJIdGFLc0dycjhMRWVuUzJhdmdWN0EsZDFSdE0zOTZwTkRD
My5HMy5hbVJxLi43dlJCOFAxdk5iOTZwTkRTMy5ccGFyDQogQnVMZnVJOXVJRnVIanVKSGVIN3VI
anVDUE0wLlNyZFdxclNyZmFLckdxclNMRWVuUy5TcGpXb1lHb1dpbjRhVTdwY1V3ZWRsVjhccGFy
DQogcm00NFZlUVR2TTY4ak9PUnZJMlpWM2lrLEg3OSx0Skgxd1lVd1lVUVpVMmlWSkNZQ0FaZzJZ
bmhnWGhDNjksdFEuNlJaUFJtR0VccGFyDQogdXFyOHJxLi4wSEtvZDdaZGcyWW5aaVZKQ043NlZm
UVQxYTJhR0VxSEVHTHQ2NmQ4RzllSFBNMGFFZDJlM0JjSWhWN0FWN0FWVixccGFyDQogUjEwR1Jx
MW9aTEJnZFppNHhobVJlZHBoYlpoWnhkV0poWlJnbzNaa0ppaixFTFdLYzhyclVnMllsMmFrQVp2
ZyxhazIwSnR5NGdccGFyDQogNy5BLEtKYkdwWW1JRVdtazBiRyxzNix0SkhmUEFjN1plVFplN2hk
M3hkSlplZFE1Y1EyMi41OFBUdlE5OUcxZlA3WGMyaW14Qk1ccGFyDQogRy4uSCwuLi4uLkE3RWVX
S3RLcWtHcUlxazJhLnFVM0ZFQ0l0SzRpbjRxa1d1SVdjTjMxRUxxRSw1VGVLNDV1UFI5Ulp2UE45
UDlccGFyDQogZlFiZjliOFJDSXU4THFHb21Dcmwwa3MsLkVMQ29ydUt1LkdvbUNybDBVMVZWbG04
NUV0Li4ua3R1MC5ZNjJVbTEsLmQuLC5IRS5ccGFyDQogMlUuLlUsSWtsYjhJZXBaaFpKaW5wWkhG
ZEtMcTZGNi5YREouUWlpSWVwWmhaN0Y2Llp6LjYuLFVmVzVVWFcuMi41Mi5DTExDM2JccGFyDQog
OFJuOVA5OUY5dlEwa3MsVWlrd200Ni5aeiwwRS4yLlU2VU9GLjBFLmNVLlVpQWNvWkMuNzAsRTBF
Li4uNywsTS4sLiwuLHRjcDBccGFyDQogMGtYYXQud25qbC5rLkUuMC4zZ3dQRS42Li5FQlUuVSwu
SixVLjJtLC4sLkU0V0ROLk50YXJtM1dqLkprbGI2LlFjaiwuRTZFLi5ccGFyDQogLkYuLC5tRS4w
VS4ya0xSQzRtRjNrd0wsLEF6SkUuaUpvWXBZMkgubmYxLi4uXHBhcg0KIC0tLSBlbmQgb2YgZW5j
b2RpbmcgLS0tXHBhcg0KIFxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmli
ZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VS
VkBMSVNUUy5PQkVST04uQ0h9fQA1OVhH
----boundary-LibPST-iamunique-2026688753_-_---

Received on Tue Aug 25 2009 - 15:06:26 UTC